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Editorial 

EL AFIANZAMIENTO 
DE UN ESTANDAR 



Mal nos pese debido a una inexcusable 
rutina por parte del mercado y a una no 
menos excusable falta de objetividad de 
ciertos medios informativos, el MSX ha 
sido en este país el «gran desconocido» 
de los estándares microinformáticos. 
Desde nuestra posición como editores, 
hemos podido observar y sentir la afir- 
mación precedente, pues aún hay mu- 
chos que no acaban de creerse las extra- 
ordinarias posibilidades del sistema y 
sobre todo su indiscutible compatibili- 
dad. Ello ha motivado que muchos fa- 
bricantes e importadores de software 
sintieran un cierto resquemor hacia lo 
que a MSX oliera. Sin embargo, por fin 
los propios fabricantes e importadores 
han reconocido la necesidad de hacer 
frente común y dar a conocer de forma 
plena las posibilidades a las que hemos 
aludido. Un primer paso ha sido esta 
campaña institucional en la prensa dia- 
ria que ha de abrir los ojos a muchos 
futuros usuarios. Y ahora de la mano 
de Manhattan Transfer, fabricantes e 
importadores nos disponemos juntos a 
dar el segundo paso, en ese caso de gi- 
gante, en tal sentido. Por ello organiza- 
do por la revista MSX EXTRA y su 
hermana MSX CLUB DE PROGRA- 
MAS, dentro del marco de Sonimag'86 
van a celebrarse las Primeras Jornadas 
Españolas del MSX, con el ánimo de 
dar a conocer masivamente nuestro es- 
tándar. En ellas pretendemos que cola- 
boren todos aquellos que a través del 
MSX se han iniciado o perfeccionado 
en el campo de programación. Mesas 
redondas, seminarios especializados, 
conferencias y demás actos van a cons- 
tituir el meollo de estas reuniones de 
trabajo, gracias a las cuales pretende- 
mos conseguir del MSX lo que sus 
inventores pretendieron, convertirlo, 
como ya hemos advertido cientos de 
veces, en un estándar universal. Por 
ello una vez más queremos desde esta 
tribuna pedir la colaboración de nues- 
tros lectores, de los fabricantes de soft- 
ware para que colaboren con sus ideas, 
en este ambicioso proyecto que no du- 
damos ha de redundar en el beneficio 
de todos. Como siempre Manhattan 
Transfer está abierta a cuantas suge- 
rencias nos hagáis, esperamos sincera- 
mente vuestra inestimable colabora- 
ción. Gracias a todos anticipadamente. 
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Líne a direc ta 

. or respon- 




e«r S cartas f e "' 



RADIO TELETIPO 



Referente a la carta de José 
Manzanos Alesanco de Vi- 
toria relacionado con el 
morse y el RTTY, les diré 
que no conozco ningún soft- 
ware con todas las funciones 
que pide. En estos momen- 
tos estoy trabajando para 
conseguirlo, pero aún no 
domino lo suficiente el len- 
guaje como para tener bue- 
nos resultados. Lo único que 
he conseguido es sacar una 
señal de radiofrecuencia 
(RF) de mi MSX y llevarla 
hasta el emisor/receptor, lo- 
grando excitar la emisión. 
Esto significa que con los 
MSX es posible lograr lo que 
quiere José, pero hay que es- 
tudiar más el problema. Mi 
número de radioaficionado 
es EA3-EXA. 

Manuel Pérez 
(Barcelona) 

Pues, a seguir trabajando. 



MSX-POS 

El sistema operativo MSX- 
DOS que utilizan las unida- 
des de disco MSX ¿pueden 
leer discos del IBM PC con 
algún programa de utilidad 
especial? Al mismo tiempo 
les sugiero que incluya en 
Monitor al día, comentarios 
de juegos. 

Héctor Martín Pérez 
(Tenerife) 

Entre el MSX-DOS y el MS- 
DOS existe una compatibili- 



dad de formatos de graba- 
ción de disco. Esto quiere de- 
cir, que si conectamos una 
unidad de disco de 5,14" de 
un IBM PC a un equipo 
MSX, podemos leer sin nin- 
gún tipo de modificación, el 
directorio y los archivos de 
cualquier disco grabado en el 
IBM PC en MS-DOS. Al 
respecto te recomendamos la 
lectura de las entrevistas be- 
chas Mitsubishi, Sony y Phi- 
lips en el número de abril. 



USO DE MANDOS 

Quisiera saber cómo se pue- 
den introducir joysticks en 
todos los programas, ya que 
casi todos están hechos para 
usar con cursor y es un en- 
gorro. 

Juan A. Romero 

En diferentes ocasiones ya 
hemos publicado el modo de 
conseguirlo a través de la 
orden STICK (1). Te reco- 
mendamos la lectura de "A 
la orden de mando" (MSX 
CLUB n° $), LINEA DI- 
RECTA (MSX CLUB n° 6). 



CARTUCHO DE AMPLIACION 

Tengo un Sony HB55P con 
el cartucho de ampliación de 
64K y mi pregunta es si al 
utilizar una Bee Card o un 
cartucho ROM debo retirar 
del otro conector el cartucho 
de ampliación. 

Jordí Pau 
Tabernes Blanques 
(Valencia) 

No, no es necesario que lo re- 
tires ya que la ampliación no 
afecta a la ROM. 



CONSEJOS UTILES 

Mi carta es para aconsejar a 
los usuarios de ordenadores 
que no coloquen sus graba- 
doras de datos cerca de la 
pantalla del televisor o del 
monitor, ya que el campo 
magnético creado por estos 
afecta la grabación de datos, 



máxime si el aparato emplea- 
do contiene algún dispositi- 
vo de sintonización de ra- 
diofrecuencia. Del mismo 
modo, colocar las cintas gra- 
badas encima de los disposi- 
tivos anteriores, acabaría al 
cabo del tiempo, modifican- 
do los datos guardados en su 
interior. 

Javier J. Zurbano Reinares 
(Logroño) 

Seguramente muchos lecto- 
res agradecerán tus consejos. 





VARIAS PREGUNTAS 

Quiero que sepáis que me 
habéis sido de gran ayuda 
para empezar en el fantástico 
mundo de los ordenadores. 
Ahora quiero que me con- 
testéis a varias preguntas. 

- ¿Cuánto cuesta una am- 
pliación de memoria de 
64K? 

- ¿En qué línea del progra- 
ma Jet Monster esta la orden 
CLEAR 2000? 

- ¿Krypton y U-Boot sir- 
ven para el Sony HB55P? 

Ángel Vicente 
(Zaragoza) 

La ampliación de memoria 

de 64K te puede costar entre 

9000 y 18000 pts. 

En la línea 20 de Jet Monster 

se da la instrucción CLEAR 

2000 

Krypton y U-Boot son pro- 
gramas para 32Ky el HB55P 
es de 16K. 



0UICKSH0T 



Quiero información sobre el 
QUICKSHOT I MSX pu- 
bicado en el mes de marzo y 
también donde puedo con- 
seguirlo, ya que en mi pue- 
blo no lo tienen. 

Antonio Salazar Ruiz 
Sta. Margarida i els Monjos 

Este joystick lleva el sello de 
Spectravídeo y es muy versá- 
til y blando en su manejo. Si 
no lo consigues en la tienda 
de tu pueblo puedes solicitar- 
lo a SVI España, Constitu- 
ción 260, Torre jón de Ardoz 
(Madrid). 



FORMAR UN CLUB 



Soy un chico de 16 años fas- 
cinado por el mundo de la 
informática y me gustaría 
tomar la iniciativa para for- 
mar un club de MSX. Den- 
tro este club además de 
intercambiarnos programas 
hechos por los mismos so- 
cios también sería interesan- 
te disponer de programas 
adquiridos. Claro que el gas- 
to que supone comprar el 
software está muy por enci- 
ma de mis posibilidades, por 
ello les pido que me aconse- 
jen o me faciliten la adquisi- 
ción. 

José Carlos Camacho Pérez 
c/Larga 52 Bonares 
(Huelva) 

El camino más corto es que 
te pongas en contacto con 
otros usuarios de Bonares y 
juntos organicen el club. La 
adquisición de software, una 
vez reunidos varios usuarios, 
se hará más fáál, ya que 
unos podrán comprar un car- 
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tucho y otros otros, para des- 
pués intercambiarlos. Re- 
cuerda que un club es un 
centro en donde todos deben 
contribuir a su formación. 




BEE CARD 



Aunque ya existen en el 
mercado algunos juegos co- 
mercializados en Bee Card, 
todavía no he localizado 
ningina tarjeta en formato 
EEP ROM. 

Javier Tamarit Villafraca 
(Madrid) 

Hemos consultado a su dis- 
tribuidora oficial en España 
y nos ha comunicado que por 
el momento, la EEP ROM 
no se comercializará en nues- 
tro país. 



USO DEL DISCO 

Poseo un Philips VG 8010 y 
quisiera saber si con el pue- 
do usar una unidad de disco. 
Además deseo que me indi- 
quen si existe un interface 
que permita colocar más de 
un periférico, las diferencias 
entre un monitor y un tele- 
visor y la compatibilidad en- 
tre MSX-DOS, MS-DOS y 
CP/M. 

David Martínez 
(Barcelona) 

Para usar una unidad de dis- 
co con tu aparato necesitas 
una ampliación de memoria. 
Referente a la interface no 
comprendemos el sentido de 
la pregunta. La diferencia 
entre un televisor y un moni- 



tor esencialmente radica en 
la capacidad del tubo de este 
último para recibir una señal 
más potente y dar una mayor 
definición en pantalla. Sobre 
la compatibilidad del CP/M, 
MS-DOS y MSX-DOS te 
recomendamos la lectura de 
"MSX, UN ESTANDAR 
DEL FUTURO" (MSX 
CLUB n" 13) 



TEST MONOGRAFICO 

Después de haber tecleado 
las correciones al "Acoso en 
Nicaragua" no consigo ju- 
garlo y tampoco me lo solu- 
ciona el Test. También tengo 
problemas con el Test Mo- 
nográfico, ya que en una se- 
rie de líneas el ordenador me 
da una cifra y el Test obra. 



Os rogaría que antes de pu- 
blicar cualquier programa lo 
comprobarais de verdad por 
una cuestión de profesiona- 
lidad, porque si lo hiciérais 
no tendríamos problemas. 

Felipe 
Vigo 

Lamentamos que pongas en 
duda nuestra profesionali- 
dad. Las diferencias entre las 



EL COLMILLO DE DRACULA 



Los textos de las instrucciones de «La mansión de Drácula» no me cuadran. Además en 
la lista de los objetos me falta la segunda línea. También tengo errores en las líneas 1 1 70 
y 2310. 

Félix Navarro 
Sabadell 

El problema que tienes posiblemente se deba a que no has respetado los espacios especifi- 
cados en las instrucciones LOCATE. Por ejemplo en la línea 1170 debes poner LOCATE 
0,1 S PRINT" — dejar 20 espacios en blanco — " y la línea 2310 copiarla tal cual está. Te 
recomendamos emplees el Test de Listado para comprobar tus errores de copia. 

«BUGS» Y CARTAS Y TEST 

[visamos a nuestros lectores que nos escriben acerca de errores en nuestros programas 
sus cartas son leídas atentamente y hechas las comprobaciones pertinentes. Sin 
argo, sólo contestaremos aquéllas que en efecto descubran algún error que debamos 
corregir o que aporten alguna aclaración a los demás lectores. Recordamos que nuestros 
programas llevan su correspondiente Test y que el uso del mismo es imprescindible en 
caso de errores. 

LO PROMETIDO ES DEUDA 

Un error de compaginación les privó del programa de volcado de pantalla que prometi- 
mos en esta misma sección a losé Guillén Márquez, en 



65000 'COPY-3 RUBEN JIMENEZ ( 19B6) 

65010 FOR CO!=61000!TO 61256! 

65020 POKECO!,0:NEXT 

65030 BI$=*":PO!=61000' 

65040 FORLI7.=0TO23 

65050 FORCOZ=0TO255 

65060 FORCHX=7TO0STEP-1 

65070 CLZ=P0INT(C0I,LIZt8+CHX):CFZ=PEEK 

(MF3EA) 

65080 IFCLZ<>CFUHENBI*=BI*+'1'ELSEBI$= 

BI$+'0" 

65090 NEXT 

65100 P0KEP0!,VAL('&B , +BI$=":P0!=P0!*1 

65110 NEXT:PO!=61000! 

65 1 20 LPRINTCHRI (27) ; "B" : CHR$ ( 27) ; ' S" ; ' 

256" 

65130 FORCO! =61000 IT061256! 

65 1 40 FEX=PEEK(CO) : IFFEZ=9THENFEX=8 

65150 LPRINTCHR$(FEX); 

65160 NEXT 



65170 LPRINT 
65180 NEXT 

65190 LPRINTCHR$(27);'A':RETURN 



65000 

65010 

65020 
■ 



'C0PY-2RUBEN JIMENEZ 
BA=BASE(5> : BC=BASE (7) : TN=BA+31 
LPRINT CHR$(27);"B';SPACE$(7); 

i 1' 

65030 FOR LI=1 TO 32 
65040 LPRINTSPACE$(7);T; 
65050 LPRINT CHR$(27) ;'sV0192" 
65060 FOR C0=TN TO TN+736 STEP32 
65070 BB=(BC+(VPEEK(C0)»8)) 
65080 FOR CH=BB TO BB+7 
65090 LPRINT CHR$(VPEEK(CH)); 
65100 NEXT CH, CO: LPRINT" I" ; : LPRINT 
65110 TN=TN-1 : NEXTLI 
65120 LPRINTSPACEK7);" 



65130 RETURN 



, ";CHR$<27);-A" 
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Línea directa 



cifras que te da el ordenador 
con nuestro Test indican pre- 
ásamente que has copiado 
mal. 



SPR1TES MULTICOLORES 

El motivo de mi carta es que 
me expliquéis, a ser posible 
con un ejemplo, cómo hacer 
una subrutina en lenguaje 
máquina que permita usar 
sprites multicolores. 

Miguel Casarejos Come- 
saña. 

La Guardia (Pontevedra) 

Desgraciadamente la prime- 
ra generación de ordenado- 
res MSX sólo permite definir 
SPRITES monocolores. Sin 
embargo, basta superponer 
dos o más de estos SPRITES 
para que obtengas el objeti- 
vo deseado. 



ENSAMBLADOR 

Quisiera que me contestaran 
a las siguientes preguntas: 
— ¿Se pueden poner más 
gráficos además de los 32 
que permite la función 
SPRITES? 

— ¿Cómo puedo hacer que 
no se mezclen los colores en 
instrucciones como DRAW, 
LINE, CIRCLE Y PAINT? 
— En mi ordenador el basic 
se carga automáticamente, 
¿qué instrucción puedo uti- 
lizar para pasar a lenguaje 
ensamblador? Creo que es 
con DEFUSR. ¿Es así? 

Augusto Crueiñes 
Valencia 

— El número máximo de 
SPRITEs visibles simultá- 
neamente es de 32. No obs- 
tante, existen en el mercado 
otros ordenadores que no 
dan la facilidad de emplear 
figuras móviles. En éstos, 
hay que introducir a mano 
los SPRITES en la memoria 
de video y volver a situarlos 
en la nueva posición, borrán- 
dolos previamente. Como 
ves es Laborioso, pero puedes 
emplearlo como solución de 
compromiso. 

— La resolución del color, en 
SCREEN 2, está limitada a 




dos colores por grupo hori- 
zontal de ocho bits. Siendo 
cuidadoso y eligiendo zonas 
de la pantalla contiguas, pero 
separadas, se puede mitigar 
el desagradable efecto de la 
mezcla de los colores en las 
instrucciones que citas. Sin 
embargo, en muchos casos no 
es posible evitarlo. 
— Tu ordenador no posee en- 
samblador incorporado. De- 
berás adquirir uno en cinta o 
en cartucho. 



PON EN HORA TU 
ORDENADOR 

En el programa del n.° 14 
creo que hay un error en la 
línea 10, puesto que yo te- 
cleo: 10 FORA=&HD000 
TO &HD0A1: READ A$: 
READ A&: V=VAL- 
("&H"+A): POKE A,V: 
NEXT y me sale "Out of 
data in 10". He repasado mil 
veces esta línea y siempre me 
sale lo mismo. Por favor, 
decidme el error. 

Antonio Cueto Senra 
Sevilla 

El mensaje "Out of data in 
10" quiere decir que la va- 
riable (A$) que se intenta le- 
er (READ) no está en las lí- 
neas DATA del programa, 
porque, simplemente, se han 
considerado ya todas las va- 
riables. Naturalmente has 
tecleado mal alguna de las 
referidas líneas DATA. Y es 
que no hay ningún motivo 
para que la línea señalada 
con un error sea siempre la 
que realmente está equivo- 
cada. 



FICHEROS EN CINTA 

Mis dudas son: 
— Si a un ordenador de 64K 
como el HB 75-P de SONY 
le pones un cartucho de am- 
pliación de 64K, ¿aumenta la 
memoria libre para el usua- 
rio? 

— He leído que el MSX no 
puede reproducir la voz hu- 
mana, mientras que el 
SPECTRUM o el COM- 
MODORE sí lo pueden ha- 



cer. ¿Cómo es esto posible?, 
pues creo que el chip de so- 
nido del MSX es bastante 
mejor que el de estos dos 
ordenadores. 

— Después de hacer OPEN"- 
CAS:QUEEN"FOR OUT- 
PUT AS#1, el cassette se 
pone en marcha y graba el 
nombre correctamente, pero 
cuando quiero escribir los 
datos que tengo que man- 
dárselos tres veces para que 
los pase a la grabadora. ¿Por 
qué sucede esto? 

Alfonso Velasco 

— El BASIC de tu ordena- 
dor sólo podrá disponer de 
29K, aunque le pongas un 
cartucho de ampliación. Ten 
presente que, aun sin cartu- 
cho, ya hay una parte de la 
RAM que no se utiliza 
(32K), a menos, claro está, 
que un programa en código 
máquina gestione los dife- 
rentes bancos. De ser así, 
cualauier ordenador MSX 
puede ser ampliado hasta un 
máximo de 100K. Por otra 
parte, el MSX-DOS (sistema 
operativo de disco) y muchos 
programas comerciales hacen 
uso de la RAM inaccesible. 

— En efecto, el chip de so- 
nido A ? '-3-8910 del MSX no 
tiene nada que envidiar al 
65581 del COMMODORE 
64 y mucho menos al del 
SPECTRUM. A decir ver- 
dad este último ordenador 
carece incluso de un chip pro- 
pio de sonido y utiliza ta uni- 
dad aritmética lógica para 
emitir un ruido de un bit, en 
lugar de los ochos habituales. 
Además, el COMMODO- 
RE no tiene instrucciones en 
BASI C para manejar el soni- 
do. En principio, ninguno de 
estos tres ordenadores está 
capacitado para sintetizar 
voces. No obstante, se inten- 
ta todo lo posible para que 
produzcan un murmullo que 
recuerde vagamente a la voz 
humana y, a decir verdad, 
hay en el mercado algunos 
juegos para MSX que lo ha- 
cen con cierto éxito. 
— Suüón que el ordenador 
escribiera inmediatamente 
los datos en el cassette. Al pa- 
rar el motor, la inercia de la 



cinta haría que quedaran 
unos huecos con información 
aleatoria, que imposibilita- 
rían la lectura ulterior. Para 
evitarlo, cana canal abierto 
reserva un buffer de comuni- 
caciones, que almacena tem- 
poralmente los datos hasta 
que se llena, momento en el 
que son grabados junto con 
una nueva cabecera de con- 
trol. Por consiguiente, si 
quieres escribir inmediata- 
mente cierra el fichero con 
CLOSE. 



ACCESO A LA ROM 

Me gustaría saber cómo se 
puede acceder al slot de me- 
moria ROM (no a la copia 
de las variables del sistema 
en RAM), desde el BASIC o 
el código máquina. Si es po- 
sible desearía una pequeña 
explicación o un artículo en 
su revista sobre estos parti- 
culares. 

Miguel Angel Garrido 
. Torres 
Sevilla 

Cómo tú bien dices, las va- 
riables del sistema se encuen- 
tran en la RAM, en la parte 
alta de ésta para ser precisos. 
Comprenderás, empero, que 
si se trata de variables no 
pueden ser copia de la ROM, 
puesto que este tipo de me- 
moria es fija e inamovible. 
Pienso que lo que deseas es 
tener información de la es- 
tructura de la ROM y de las 
rutinas contenidas en ella, 
para aprovecharlas en tus 
programas. En este caso, 
consigue un ejemplar de 
nuestro especial dedicado al 
código máquina. Seguro que 
te aclarará todas las dudas. 



COMPATIBILIDAD MSX-2 

Discrepo con la mentada 
compatibilidad del MSX-1 y 
MSX-2. Este aparato es fe- 
nomenal, pero me he decep- 
cionado por su elevado pre- 
cio, por su manual de ins- 
trucciones en inglés y porque 
sólo se puede conectar a mo- 
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nitor o TV que tenga entrada 
RGB. Pero lo más grave es 
que de 100 programas que 
tengo sólo me cargaron 17. 
En cuanto a la revista 
MSX-2 que tenéis anunciada 
no vendría mal que publicá- 
rais algún artículo así nos 
vais preparando, pues esta- 
mos perdidos. El ordenador 
que tengo es un Sony HB- 
F500P. 

Antonio Millán San Eme- 
terio 
San Sebastián 

En nuestro número anterior 
publicados las principales ca- 
racterísticas de esta segunda 
generación de MSX y su gra- 
do de compatibilidad con la 
primera. El precio de estos 
aparatos se considera bajo en 
relación con las prestaciones 
que ofrece y teniendo en 
cuenta que está dedicado, 
más que al consumo masivo, 
a la utilización en gráficos y 
tratamiento de imagen. Por 
esta razón se hace indispen- 
sable la conexión RGB para 
TV o monitor, ya que la de- 
finición que requiere es tam- 
bién mayor. Los problemas 
del software pueden deberse 
a que, posiblemente, muchos 
programas han sido desarro- 
llados sin que se respeten las 
normas establecidas por Mi- 
crosoft. También puede suce- 
der que al incorporar tu apa- 
rato una unidad de disco ésta 
ocupe algunos ks. necesarios 
para los programas. Prueba 
teclear el mini programa si- 
guiente y ejecútalo antes de 
cargar la cinta. 
10 FOR A = &HFD9A TO 
&HFFF 

20 POKEA,&HC9 
30 NEXT 

40 CLEAR 100,&HF37F 



ANULACION DE UNIDAD DE 
DISCO 

Les escribo para comunicar- 
les que hay una forma más 
sencilla para anular la unidad 
de disco sin tener que desco- 
nectarla y es manteniendo 
pulsada la tecla SHIFT 
mientras encendemos el 
ordenador. Así, me aparecen li 
bres 28,815 bytes. También 
he podido observar que 
manteniendo pulsada CTRL 



mientras encendemos el 
ordenador la memoria libre 
me sube a 24,988 bytes para 
poder operar con disco. Esto 
quiere decir que gano 1,558 
bytes. Lo que no sé es donde 
puede afectar, pero puedo 
decirles que algunos progra- 
mas que antes no me entra- 
ban sí lo hacen con este pro- 
cedimiento. 

Feo. Paez Choquet 
Jerez de la Frontera 
(Cádiz) 

Aparte del método que nos 
indicas y del que nosotros 
publicamos anteriormente y 
que le recomendamos a 
Antonio Millán, también 
puede anularse de la siguien- 
te manera: 

CLEAR W0.&HF37F : 
NEW 



C-64 0MSX 

Hace unos días me compré 
un HB 75P y ha surgido una 
polémica con un amigo que 
tiene un Commodore 64. Se- 
gún él su aparato es más po- 
tente porque tiene en panta- 
lla 38000 bytes y en el mío 
me salen 28815. ¿Cuál es 
mejor de los dos? Les hago 
esta pregunta a pesar de que 
mi amigo dice que ustedes 
dirán que MSX porque para 
eso la revista apoya este sis- 
tema. 

Jesús González 
Oviedo 

Tu amigo tiene razón en 
cuanto a que nosotros te di- 
remos que el MSX es más po- 
tente. Pero no se trata sim- 
plemente de una afirmación 
sino de algo fundamentado. 
Como ya nos ocupamos de 
esta comparación de un mo- 
do muy detallado, te reco- 
mendamos que leas "El 
MSX es mejor", publicado 
en nuestro número 8, de di- 
ciembre pasado. 

INPUT Y OPEN'CRT:" 

Me gustaría saber para qué 
sirve la instrucción OPEN 
"CRT:" y qué diferencia 
hay entre LINE INPUT e 
INPUT. 

Guillermo las Heras Acha 
Vitoria 



La instrucción OPEN 
"CRP:" sirve para que toda 
la información asignada a un 
canal vaya a la pantalla de 
textos (SCREEN ó 1). Su 
utilidad, en algunos casos, es 
considerable. Imagina una 
rutina muy trabajosa que 
disponga los datos de una 
forma determinada para su 
representación. Con sólo 
cambiar una línea, en lugar 
de readaptarlo todo, puede 
hacerse que se escriban datos 
en la pantalla de gráficos, en 
la cinta, en la impresora, en 
el disco, etc.. Comprenderás 
que si un programa da la po- 
sibilidad de elegir el periféri- 
co de salida uno de estos pue- 
de ser perfectamente la pan- 
talla de texto. 

En cuanto a la diferencia 
entre LINE INPUT e 
INPUT te diré que, de en- 
trada, la primera no presenta 
el interrogante característico 
de la segunda. Asimismo, 
INPUT considera que la co- 
ma es un delimitador de 
cualquier cadena alfanumé- 
rica y exhibe el mensaje "Ex- 
tra ignored" cuando encuen- 
tra una de éstas. Además, 



existen muchas ventajas a fa- 
vor de LINE INPUT cuan- 
do de leer archivos en disco 
se trata. 



PROGRAMAS A PARES 

Desearía saber cómo se pue- 
de almacenar un programa 
para que al teclear o al intro- 
ducir otro, sin apagar el 
ordenador, el primero no se 
borre. Si es posible, os ruego 
que me indiquéis la instruc- 
ción a utilizar y cómo volver 
a sacar el primer programa. 
Roberto Vallejo Barbero 
Burgos 

Lamentablemente no existe 
instrucción alguna que reali- 
ce el cometido que tú deseas. 
Sin embargo, tos ordenado- 
res de 64K tienen la posibili- 
dad de almacenar dos pro- 
gramas independientes a la 
vez, si se construye una ruti- 
na en código máquina que 

festione el cambio de los 
ancos de la memoria. El có- 
mo y el porqué serán anali- 
zados en un próximo capítu- 
lo de la sección "CALL". 



PROTECCION 



isiera que me contestaran 
aio siguiente: ¿qué rutina en 
código máquina hay que in- 
troducir en un listado BA- 
igft proteger progra- 
y que en el ordenador 
nos aparezca: "MSX system 
versión 1.0", etc., o sea, se 
ponga como al conectarlo i 
Feo. Javier Gamo 
Villacarrillo (J aén ) 

Estoy haciendo un progra- 
ma para mi Hit Bit HB-55P 
y quisiera saber que es lo 
que debo hacer para que 
cuando alguien intente ver el 
listado la memoria se borre 
como si pulsáramos el botón 
de reset. 

Andrés Roldan 
Ubeda 

Lo que vosotros proponéis es, 
simplemente, llamar a la ru- 



tina que inicializa el ordena- 
dor. Podéis hacerlo con DE- 
FUSR=0.A = USR(0). Con 
esto conseguiréis lo mismo 
que si se pulsara el botón de 
reset. Sin embargo, debo 
advertiros que el sistema 
operativo no reinicializa to- 
da la memoria, únicamente 
se limita a situar ciertos pun- 
teros claves a su nivel origi- 
nal. Ello es sufiáente para 
borrar, aparentemente, un 
programa BASIC, aunque 
realmente sigue estando ahí 
oculto y esperando a que al- 
guien ponga los "parches 
adecuados en los lugares jus- 
tos, para volver a la luz. Por 
tanto, os sugiero que em- 
pleéis lo que sigue, pues es 
completamente resolutivo: 
POKE&HFD9D,&:HED- 
POKE&HFD9E,&HB8 

■POKE&HFD9A, 1 
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Tablón de anuncios 




Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las 
características de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y 
copia de software original es un acto delictivo perseguido por la ley. 



Vendo ordenador Philips 
VG8000, cartucho de ampliación 
de 16K, cables, 2 libros y uno de 
microprocesadores, revistas, etc. 
Precio a convenir. Javier Tel. 
(952) 803380. CP1. 
Cambio juego MSX sin fin eco- 
nómico. Luis A. de la Fuente Ló- 
pez, c/. Gran Capitán 3-5, 2." Der. 
Salamanca. CPl. 

Intercambio programas MSX en 
cinta y disco de 3.5". Irene Jua- 
rros. C/. Garita 19. 07015 Palma 
de Mallorca. Tel (971) 403659. 
CPl. 

Intercambio programas MSX. 
Jordi Quintana Pamies. Ctra. 
Barcelona, 567, 3.", Sabadell (Bar- 
celona). Sólo Sabadell y alrededo- 
res. CPl. 

Busco programas originales. An- 
drés Blanco. Apdo. 2168. Sabade- 
ll (Barcelona). CPl. 
Intercambio programas. Daniel 
Delgado Segura. C/. Tomás Pérez 
Ubeda, 15, Casas-Ibáñez (Alba- 
cete). Tel. (967) 460003. CPl. 
Intercambio juegos de Konami. 
Juan Antonio López. C/. Riera 
Blanca, 158, 4.° 2.' Hospitalet 
(Barcelona). Tel. (93) 4311563. 
CPl. 

Intercambio Knight Lore, High 
Way Star, Zaxxon, etc. por Co- 
mando o Simulador de vuelo. 
Manolo de Sevilla. Tel. 632194. 
CPl. 

Intercambio programas en códi- 
go máquina. Gerónimo López. 
Av. de la Victoria, 10, Dos Her- 
manas (Sevilla). Tel. 724407. CPl. 
Intercambio programas. Andrés 
Fernández Nieto. C/. Menorca, 
24, San Celoni (Barcelona). Tel. 
(93) 8670684. CPl. 
Intercambio programas. Envía- 
me tu cinta y te la devolveré con 
nuevos juegos. Avda. Gaspar 
Aguilar. C/. Costa y Borras, 64, 
5. 46017 Valencia. CPl. 
Vendo HB 55P de Sony más am- 
pliación de 26 K y regalo tres car- 
tuchos. Precio a convenir. Fer- 
nando de Barcelona. Tel. 
3863019 (17,30 a 23 hs.). CPl. 
Vendo Philips VG 8010 más catá- 
logos y juegos La Pulga y Congo 
Bongo, c/garantía. Precio a con- 
venir. Enrique de Aguilar (Palen- 
cia). Tel. (988) 122886 (14 a 15 y 
20 a 23 hs.). CPl. 
Vendo unidad de disco Toshiba a 
40.000 pts. y ordenador Sony de 
64K a 30.000 pts. Regalo juegos, 
programas y diskettes. Juan Ra- 
món Arrieta. P." de los Olmos, 
3-5. 20016 San Sebastián. Tel. 
(943) 399907. CPl. 
Cambio manuales Sony, intro- 
ducción al MSX BASIC y MSX 
BASIC Manual de referencia p/ 
programac. en italiano por los 
mismos en español. Luis de Ma- 



drid. Tel. (91) 4018907 (21 a 24 
hs.). CPl. 

Cambio 70 programas por un 
cartucho de ampliación a 64 K. 
Alberto Palomares Díaz. M. 1 
Auxiliadora, 33, 8" A 37004 Sala- 
manca. CPl. 

Compro cartucho ampliación de 
memoria a 64 K p/HB 101 P de 
32K. Antonio Montero Batlle. 
Ciudad Cooperativa 49 5." 2.' San 
Boi (Barcelona) Tel. (93) 
6521694. CPl. 

Cambio todo tipo de programas 
p/Spectravídeo 318/328. Mandar 
lista a José Muñiz c/M. Hermida 
72 P. 15B 39009 Santander. Tel. 
(942) 372610. CPl. 
Vendo unidad de disco Philips 
VY0010 impecable, c/programa 
de tratamiento de textos, base de 
datos, etc. y buenos juegos. Todo 
por 59.000 pts. José Luis de Gra- 
nollers. Tel. (93) 8702190 (20 a 22 
hs.). CPl. 

Vendo consola de videojuegos 
CoIecoVisión c/tres cartuchos. 
Precio a convenir, marco Antonio 
Fanz. P.° Universal 9, Esc. B 3." 2.' 
08031 Barcelona. CPl. 
Intercambio programas MSX de 
toda clase. Miguel Jiménez Piza- 
rro c/Morenito de Algeciras 4, 4 o 
C Tel. (956) 606128. Algeciras. 
CPl. 

Compro cartucho de ampliación 
a 64 K modelo SVI 747 o Sony. 
También me interesa comprar 
impresora. Mandar ofertas al 
apdo. 342 de Vitoria. CPl. 
Intercambio juegos de toda clase. 
Juan. Llamar al tel. (977) 720488 
de Ulldecana (Tarragona). (17 a 
20,30). CPl. 

Vendo RUN, enciclopedia prác- 
tica del Spectrum, 4 tomos en 
8.000 pts. Su precio es de 9.855. 
patricio Duque Herrera Urb. Los 
Olivos, 3 4." D San Fernando (Cá- 
diz) Tel. Í956) 895243. CPl. 
Intercambio programas c/usua- 
rios de Cantabria. Poseo prime- 
ros títulos. Ángel Serna Torralba. 
c/ Florida 10 4." - Tél. (942) 
233443. CPl. 

Busco esquemas de ordenadores 
MSX, así como periféricos y car- 
tuchos. Agradecería información. 
Vicente Esteve Apdo. 85 Elda 
(Alicante). CPl. 

Intercambiamos programas c/ 
amigos de Santander. Llamar a 
Agustín. Tel. 372186 o Luis Vi- 
cente tel. 334166 (22 a 23,30). 
CPl. 

Vendo impresora Brother EP-22 
especial p/Commodore 64 y 
Spectrum. Precio a convenir. Cé- 
sar Toquero López c/Santucho 73 
4" C 48006 Bilbao - Tel. 4336824. 
CPl. 

Vendo Spectravídeo SVI 328 c/ 
lectograbadora SVI 904, Quick 
Shot II, cartucho Super Cross 



Forcé, 2 cassettes de juegos, ma- 
nuales en inglés y español y un 
libro de programación avanzada 
Spectravídeo. Sólo 35.000 pts. 
Rafael Paño c/Industria 103 5 o , 
08025 Barcelona. CPl. 
Vendo barato Spectravídeo 728 
80 K RAM. Un mes de uso. Ga- 
rantía en blanco. Regalo 15 juegos 
de cartuchos Konami. José Luis 
Vega. Tel. 2354485 (Barcelona). 
CPl. 

Vendo Data M.emory UDC-01 
Yamaha a estrenar por 12.000 pts. 
Juan M.' Gorrotxategui, Gui- 
púzcoa 16, 4" C Ordizia (Guipúz- 
coa) Tel. (943) 885474. CPl. 
Vendo ampliación de memoria 
HBM-16 más 30 juegos por sólo 
6.000 pts. Sólo Barcelona. Gui- 
llem Carreras Tel. 2035430. CPl. 
Vendo impresora Philips de 80 
colum. (fricción y tracción). Buen 
estado. Garantizada. Regalo 50 
cartuchos c/ella. Vendo Unidad 
de disco Philips c/garantía y rega- 
lo 15 discos c/programas. Precios 
a convenir. José Ignacio. Tel. (94) 
4494685. CPl. 

Intercambio programas de jue- 
gos. Jordi Coaina c/Bilbao 11,4." 
3. J Manresa (Barcelona) - Tel. 
(93) 8734135. CPl. 
Contacto c/usuarios MSX de to- 
da España p/intercambio trucos, 
dudas, etc. José L. Gordillo c/To- 
rrebeses 6, Sevilla 41016. CPl. 
Intercambio programas desinte- 
resadamente. Eliseo Javier Rome- 
ro. Pza. Vizconde efe Miranda 3, 
Bl A. 14002 Córdoba. Tel. 
258774. CPl. 

Intercambio. Envíame tus pro- 
gramas grabados y te devuelvo la 
cinta con otros. Javier Nosás. 
Rambla Justo Oliveras, 69, 4.° 3.*. 
Hospitalet (Barcelona). CPl. 
Intercambio programas de todo 
tipo, sugerencias e ¡deas sobre el 
sistema. Daniel David Gutiérrez. 
Pza. Vizconde de Miranda, n.° 3, 
Bl A. 14002 Córdoba. Tel. 
254996. CPl. 

Cambio programas MSX. Poseo 
Nightshade, Gunlright, Yie Ar 
Kung Fu, Luis Losada López, 
Av. Reino de León, 7, 4." A. León. 
Tel. (987) 213389. CPl. 
Comrpo cartucho de expansión 
de memoria de 16 ó 64 K, cuyo 
valor no supere las 4.000 pts. Luis 
Santiago. C/. Trajano, 5-5.° F. 
18002 Granada. Tel. 205777. 
CPl. 

Vendo 2 cartuchos MSX — Super 
Soccer y Buggy — y otros en cin- 
ta. También libros «Descubre tu 
MSX» y «Manual de referencia 
Spectravídeo y MSX» y cassette 
de y para MSX. Miguel. Pza. 
León Felipe 8, 1." C. 47012 Valla- 
doiid. Tel. 398160. CPl. 
Compro o intercambio progra- 
mas contabilidad, facturación, 



stock p/Spectravídeo c/unidad de 
disco 605A. Tengo Dbasell, Su- 
percalc, wordstar, etc. Marco Lo- 
rente Duval. C/. Cuenca, 52-1. 
46008 Valencia. Tel. (96) 
325 89 30 (tardes). CPl. 
Contacto. Club Amics del MSX 
escríbenos. Contestamos todas 
las cartas c/información s/nuestro 
Club y prestaciones. Ctra. Vella 
34, 3.° 1.'. Monteada i Reixach 
(Barcelona). CPL 
Contacto c/usuarios MSX p/in- 
tercambio de programas, trucos e 
información. Feo. Nova Fernán- 
dez. Ctra. Madrid, 48 B, 1 > A. Ba- 
dalona. 06008. Tel. 253683/865. 
CPl. 

Intercambio programas MSX. 
Primeros títulos del mercado. 
Iñaki Fernández Izquierdo, c/: 
Zamakoa, 7, 5." Dcha. Galdácano 
(Vizcaya). Tel. (94) 4563372. 
CPl. 

Intercambio programas de juego. 
Poseo Alien 8, Boga Boo, etc. Pe- 
dro García Caro Sánchez. C/. 
Carlos III, 17, 4." B. Cartagena 
(Murcia). Tel. (968) 520202. CPl. 
Intercambio juegos MSX. Man- 
dar lista. Pablo Velasco Calvo. 
C/. José María de la Puente, 6, 6.° 
A2. 09006 Burgos. CPl. 
Vendo Sony HB-55 P como nue- 
vo. Regalo varias cintas. Carlos. 
Tel. (54) 160606. CPl. 
Intercambio juegos MSX. Tengo 
Zaxxon, Manic, Ninja y busco 
Panorama p/matar y The Master 
of the Lamp. José Luis. Pza. Juan 
XXIII, 5, 1.» Dcha. Cartagena 
(Murcia). Tel. (968) 509084. CPl. 
Intercambio juegos. Floren 
González Fuente. C/. Alto 
Alday, 1, 4." Izq. S. Salvador del 
Valle (Vizcaya). CPl. 
Contacto con interesados en for- 
mar club de MSX en Sabadell. 
Andrés Blanco. Apdo. de Co- 
rreos 2168. Sabadell (Barcelona). 
CPl. 

Cambio/vendo programas, tales 
como Cazafantasmas, Decathlon, 
Pitfall II, HERO, etc. Andrés 
Roldán Aranda, c/. Explanada 5, 
5.--B, Ubeda (Jaén), tel. (953) 
751668. CP2. 

Compro cartucho de ampliación 
de memoria de 16K en buen esta- 
do a precio negociable. También 
intercambio programs MSX. 
Asier Rod Lope. c/. Pintores 
Arrue 8, 4.»D -48015 Bilbao (Viz- 
caya). CP2. 

Cambio/vendo programas. Po- 
seo más de 40 títulos. Buena cali- 
dad. Raúl Balsera. Av. de Navarra 
39 D, 2."C. Zarauz (Guipúzcoa). 
Tel. (943) 833671. CP2. 
Contacto usuarios MSX. Seccio- 
nes cassettes, bibliografía, soft- 
ware, etc. Club Arcade SoftMSX. 
Apdo. 2108 Burgos. CP2. 
Vendo ordenador Sony HB75P 
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80K, como nuevo, por compra de 
otro MSX c/disco, más instruc- 
ciones, cables y programas en 
cinta. Luis. Tel. (91) 7785227 (De 
16hs.) CP2. 

Contacto c/usuarios MSX p/in- 
tercambio de información, datos, 
experiencias, etc. Posible forma- 
ción club. Sólo p/Lugo. Gustavo 
Cela c/Poeta Cabanilfas 10-12 P.3 
Izo,. 27004 Lugo. Tel. 216793. 

Vendo urgente Sony HB75P 
80K, nuevo, c/garantía 70000 pts. 
Incluye software c/más de 200 tí- 
tulos comerciales y más de 60 car- 
tuchos. Andrés Sanz c/Latassa 22, 
Zaragoza. Tel. (976) 453979. 
CP2. 

Cambio/vendo juegos. Poseo los 
mejores. Todos los de Activisión, 
Yie arKungFu, etc. Luis A. de la 
Fuente, c/Gran Capitán 3-5 
2°Der. Salamanca. CP2. 
Cambio juegos, utilidades y 
experiencias MSX. Fernando 
García c/Mossen Andreu 42, 12° 
V Cornellá (Barcelona). Tel. (93) 
3765220. CP2. 

Vendo plotter Sony c/poco uso, 
un cartucho Mouser, 3 juegos en 
cinta. Juan González Castilla. 
Tel. (94) 4636746 de Vizcaya. 
CP2. 

Intercambio programas de todo 
tipo. Xavier Martínez. Viladecans 
(Barcelona) Tel. 6583602. CP2. 
Vendo urgente Canon V-20 c/ 
poco uso y perfecto estado, c/ca- 
bles y manuales y regalo unos 70 
programas. Todo 50.000 pts. Pre- 
feriblemente de Pontevedra. Elvis 
Martínez, Avda. Zamora 99,2" 
Dcha. Vigo-1 1. Tel. (986) 414525. 
CP2. 

Cambio más de 1.000 programas 
en Basic y más de 60 CP/M p/ 
Spectravídeo 328, por ordenador 
MSX o periféricos. Poseo revistas 
y libros de informática. Jacinto 
Moreno (957) 299063 de Cádiz. 
CP2. 

Intercambio programas p/MSX, 
juegos, gestión, educativos, apli- 
caciones. Carmelo González c/ 
Industrias 34, 5"C Valladolid. Tel. 
(983) 294592 CP2. 
Cambio ocho buenos programas 
por un cartucho de juegos. Valo- 
raré todas las cartas. Dan López 
Av. Reino de León 7,4- A. 24006 
León. CP2. 

Intercambio juegos MSX. Vendo 
revista PC Magazine n" 13 Marzo 
junto c/diskette demost. PC text, 
PC base. 350 pts. Más cassette c/ 
10 juegos. Todos 1.000 pts. Mar- 
tín Pérez c/Gral. Franco 53, Los 
Cristianos II, 23 -Los Cristianos- 
Tenerife. CP2. 

Intercambio programas comer- 
ciales e instrucciones de los mis- 
mos. Jordi Roca Puig. Apdo. 274 
Vic (Barcelona). CP2. 
Vendo ampliación de memoria 
HBM 16 Sony 4.000 pts. Luciano 
Sayalero. P. Martiñene 4, 6" A. 
Zarauz (Guipúzcoa) Tel. (943) 
851691. CP2. 

Compro ampliación de memoria 
de 64K e intercambio programas, 
experiencias ideas, etc. José Luis 
Rojano, Tel. (91) 6191629 de 



Alcorcón (Madrid) (de 18 a 20 
hs.). CP2. 

Intercambio programas en cinta 
o diskette 3,5", Basic, CP/M, 
MSX-DOS o CM. Mándame tu 
cinta o diskette y recibirás el mío 
con otros nuevos muy interesan- 
tes. Oscar Vallejo. Av. de Madrid 
9, 3°3\ Esc. c 08028 Barcelona. 
CP2. 

Cambio cartucho "Monkey Aca- 
demy" por otro a convenir. Tam- 
bién cambio otros juegos preferi- 
blemente con usuarios de Valen- 
cia. José Seguí. Av. Malvarrosa 41 
4' 46011 Valencia. CP2. 
Vendo órgano polifónico Casio 
MT70 casi sin usar. 40.000 pts. o 
cambio por plotter Sony. José Se- 
guí. Avda. Malvarrosa 41 4 1 
46011 Valencia. CP2. 
Intercambio importantes juegos. 
Poseo más de 50 (Ninja, Máxima, 
Zaxxon, River Raid, Inglés I, etc.) 
Dani y Jordi Batlle, c/Libertat 17, 
Vilassar de Dalt (Barcelona). 
CP2. 

Intercambio programs de toda 
clase. Tengo más de 120, especial- 
mente con gente de Reus. Carlos 
Tel. 305420. CP2. 
Intercambio programas MSX. 
Poseo más de 180. Antonio Ga- 
llego Montero. c/Campoamor 
13-15 Edif. B Esc. 2', 2" 2' 08031 
Barcelona. Tel (93) 4270316. 
CP2. 

Intercambio programas. Poseo 
La pulga, Blagger, Zaxxon, Dog 
Fighter, procesador de textos, etc. 
Enviame tu cinta c/programas. Te 
la devolveré con otros nuevos. 
Antonio Orgega, CanBassa A, 
11, 4 o 1\ Granollers (Barcelona). 
(93) 8709894. CP2. 
Contacta con nosotros. Club 
Usuarios SVI y MSX. Dispone- 
mos de información y programas. 
AV. César Augusta 25, Zaragoza 
o Apdo. de Correos 6030. Tel. 
560013 (preguntar por David). 
CP2. 

Contacta conmigo si vives en 
Alicante. Poseo un MSX y quiero 
intercambiar programas. Jacobo 
Tel. (965) 222538. CP2. 
Intercambio programas comer- 
ciales MSX. Esteban Rapaso Gó- 
mez, c/Fraga do Rei 11, Arzua 
(La Coruña) Tel. (981) 500486. 
CP2. 

Contacto en Pamplona para 
intercambio de programas e ideas. 
Oscar Moreno Vassart. Tel. 
236111 (mañanas). CP2. 
Vendo HB 75P Sony, 80K RAM, 
poco uso, c/garantía por 3 meses, 
cables conexión, manuales en cas- 
tellano, 45 programas comerciales 
(juegos y gestión). Sólo 45.000 
pts. Francisco A. Molina Mosto- 
Ies (juegos y gestión). Sólo 45.000 
pts. Francisco A. Molina Monto- 
ro. Av. de Barcelona, 326 4 o B 
18006 Granada. Tel. (958) 119686 
(21 a 23Hs.). CP2. 
Vendo cartucho ampliación de 
memoria HBM 16 Sony. Andoni 
Regó Echebarría c/Arostegui 35, 
Bermeo (Vizcaya). Tel. (688) 
1827. CP2. 

Vendo/compro/cambio progra- 
mas MSX. Rubén Soto ae Roa. 
c/Teruel 4, Tudela del Duero 



(Valladolid). CP2. 
Cambio cartucho MSX (Senjo) 
por otro (Yie ar Kung-Fu, Hiper 
Sport I, II, Super Tennis, etc.) o 
por dos cintas (Zaxxon, Decath- 
lon, Ghosbusters, etc.) o vendo 
por 4.900 pts. Miguel A. Hernáiz 
Barrido c/San Mariano 62, I o 3* 
Viladecans (Barcelona) Tel. (93) 
6585781. CP2. 

Vendo/cambio programas MSX 
a usuarios MSX de Castellar del 
Vallés, Sabadell y zona. Santi 
Gual Martí. Prim, 18, Castellar 
del Vallés (Barcelona). Tel (93) 
7145751/7414. CP2. 
Intercambio/vendo juegos MSX. 
Más de 150. Francisco Pardo. To- 
rrassa 119, 1" 4', Hospitalet (Bar- 
celona). Tel. (93) 422 72225. CP2. 
Vendo cartucho ampliación de 
memoria HBM 16 Sony. Poco 
uso. 4.500 pts. Vicente Reche 
Ibáñez. c/Barón de Mayáis 27 5" 
25005 Lleida. CP2. 
Intercambio programas MSX de 
juegos. Poseo Ghostbusters, 
Buck Rogers, Booga Boo, etc. 
Juan Manuel Poyato. Tel. (954) 
663980 (19 a 21 hs.) CP2. 
Intercambio programas con 
usuarios de toda España. Poseo 
Sorcery, Hiper Sport I, II; Kung 
Fu, etc. Jairo Romero Luián el 
Hnos. Becerril 3, bloque, b, 1°C 
-16004 Cuenca. Tel (966) 225823. 
CP2. 

Intercambio de programas, 
información y juegos. Escríbe- 
nos, somos un Club L.S.D. Prin- 
ter. Apdo. 2093 Murcia. CP2. 
Vendo/cambio cartuchos MSX y 
vídeojuegos Philips con seis car- 
tuchos por 10.000 pts. José A. 
Peñas, Av. San Bernardo Calvo 
41, 5' 1', Reus (Tarragona). Tel. 
(977) 317329 (22,30 a 23 hs.). 
CP2. 

Contacto con usuarios MSX. 
Nuevo club MSX J.C. José Car- 
los Camacho Pérez, c/Larga 52, 
Bonares (Huelva). Tel. (955) 
366169. CP2. 

Intercambio programas. Poseo 
más de 80. Mariano Delgado 
García. c/Becerril 3, C 2 Ü A, 16004 
Cuenca. Tel. (966) 222668. CP2. 
Intercambio programas comer- 
ciales MSX sin fin económico. 
Envíame tu cinta grabada y te la 
devolveré con los que pidas. José 
L. Vega Pza. Salvador Riera 3, 
Edo. 3' 08026 Barcelona Tel. (93) 
2354485. CP2. 

Cambio, compro, vendo progra- 
mas para SVI328. Tengo muchos 
(Spectron, Sasa, etc.) Miguel A. 
Herráiz Díaz c/Martínez Izquier- 
do 14, 28028 Madrid. CP2. 
Contacto para formar Club 
Amigos del MSX e intercambiar 
programas e ideas. Pide informa- 
ción sin compromiso. Club Flop- 
py MSX, c/Dr. Moragas 204-212 
2" 1 Esc. A. Barberá del Vallés 
(Barcelona). CP2. 
Intercambio programas MSX 
con usuarios de Barcelona y Ba- 
dalona. Sergio González Díaz c/ 
Camprodón 32, Badalona (Barce- 
lona). Tel. 3872634. CP2. 
Contacto con usuarios de MSX 
p/intercambio de cintas, trucos, 
experiencias, etc. Guillermo Pé- 



rez, c/José Antonio 47, 3° Izda. 
Sta. Eugenia de Riveira (La Co- 
ruña). Tel. (981) 87078. CP2. 
Vendo/Intercambio programas 
MSX (HERO, Master of the 
lamp, etc.) Contestaré a todos. 
Rubén Pérez Seguí c/México 1-3 
Piso 3°C, Salamanca. CP2. 
Contacto urgente con el amigo 
lector que se puso en contacto 
conmigo y acordamos intercam- 
bio de Curso Basic MSX por 
Buck Rogers o HERO. Jordi Fe- 
rran, c/Matajudaica 10, Corea 
(Gerona). CP2. 

Cambio programas, información 
y conclusiones. Poseemos má s de 
30 títulos. Apuntarse al club es 
gratuito. Club MSX MICRO 
SUR. c/Cristo Baja, 1, Torrepe- 
rogil (Jaén). Tel. (953) 776005. 
CP2. 

Vendo consola vídeojuegos Phi- 
lips G7000 poco uso. Transfor- 
mable ordenador c/módulo mi- 
crosoft 16K ydos cartuchos, más 
manual de instrucciones y poster 
gigante. Todo por 20.000 pts. Ro- 
berto Vallejo c/Sta. Cruz 29 3°F 
09002 Burgos. Tel. (947) 269818. 
CP2. 

Intercambio programas, unos 40, 
por una ampliación de cartucho 
de 64K. Mando lista a quienes la 
soliciten. José L. Stoduto García. 
c/Manuel Blasco 8,5°C 42004 So- 
ria. CP2. 

Intercambio 40 juegos (Le Mans, 
Time Bandits, Blagger, etc.) por 
ampliación en especial de 64K. 
Urgente. Javier Costa. P° Mallo- 
carca 7, 2"2\ Palma de Mallorca- 
Tel. (971) 284655 (martes o jueves 
de 19 a 21). CP2. 
Contacto con usuarios MSX en 
La Coruña, Poseo Stop the Ex- 
press, Grand National, Manic 
Miner, etc. José Manuel Cereijo 
c/Forcarey D.P 2 La Coruña-Tel. 
200842. CP2. 

Cambio El Grand National o Ba- 
talla de Tanques por uno de estos 
juegos: HERO, Zaxxon, Les 
Fjics, Booga Boo, Pitfall II, Past 
Finder, Ghostbusters, Master of 
the Lamps o Decathlon. Oscar 
Deprado c/ Angel Rebollo -D.P.2 
La Coruña. Tel. 200949. CP2. 
Cambio' cartucho de ampliación 
HBM-16 por otro HBM-64, re- 

f alando 90 juegos. José David, 
el. (956) 110921 (14.30 a 15.30 o 
21 a 23 hs.). CP2. 
Intercambio programas MSX. 
Más de 100 títulos. Pide lista. Je- 
sús López Alvarez c/Simancas 
2,1-B Mel¡Ua=Tel. (956)687738. 
CP2. 

Intercambio toda clase de pro- 
gramas para MSX. Poseo más de 
30 Escribir o enviar vuestros pro- 
gramas a: Antonio Manuel R. 
Brincones Jorge Guillen N°32 
Malaga 29003. CP2. 
Intercambio 4 cintas con progra- 
mas variados por los programas 
de las revistas MSX EXTRA n° 5 
al 13 ambos ambos inclusive y 
por los programas de las revistas 
MSX CLUB n° 1 al 8 ambos inclu- 
sive. Escribir a: José Vicente Pla- 
nells C/Jesús Morantes Borrás n° 
211 46012 Valencia. CP2. 
Vendo/Cambio cintas de juego y 
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Tablón de anuncios 




educativas MSX: Zaxxon, Alien 
8, Jet Set Willy, Spartan X, Road 
Figher, Beam Rider, Ghostbus- 
ters, etc. Escribir a Luis Losada 
Av. Reino de León n" 7 4". Recibir- 
la algunos de Baloncesto, Tenis, 
etc. Tel: 987-213389. CP2. 
Vendo HB 75-P de Sony (64K), 
Cassette (Data Recorder) de San- 
yo, 5 Cartuchos (RAM), 15 Cas- 
settes de juego, Cartucho Data- 
Cartridge (Agenda Personal), 28 
revistas MSX, Compilador de 
Pascal, 5 cintas virgenes = 70.000 
pts. Facilidades depago -Marti 
Llorach Torres- C/Rogers de 
Flor2843"l°Barcelona08025,Tel. 
2573180. CP2. 

Vendo un ordenador Philips 
MSX de 48K, modelo VG 0810, 



Tiempo de uso, 15 meses Antonio 
Vázquez Torre C/Gongora n° 11 
2° A. Córdoba 14001. CP2. 
Intercambio programas MSX de 
juegos y utilidades. Tomas Más 
Esteve, c/Juan Carlos 1, 55, 2° 
Elda. Alicante. CP2. 
Vendo ordenador MSX SVI-728 
(64K RAM-16k VRA M y 32K 
ROM), c/conexiones p/pantalla, 
transformador, manual de usua- 
rio en castellado e ingles, 2 cartu- 
chos (bATTLE cROSS Y cHESS 
de Sony) y unos diez cassette de 
juegos. 45.000 pts. Ismael Gonzá- 
lez P/Fuente Farga 28 2" 3" tel. (93) 
3570654 Barcelona 08032 Llamar 
de 17 a 18 de lunes a jueves. CP2. 
Vendo impresora matricial de 40 
columnas, marca Phillips Mode- 



lo VW 0010. Joaquin Melich. tel 
(93) 3730708. A partir de las 
22 hs. Regalo programas- de pro- 
ceso de textos. CP2. 
Compro esquema del ordenador 
Toshiba HX10. Pagaré gastos de- 
cir medio por telf. o carta. Anto- 
nio Montes Apdo. de Correos 
291 Gerona, teí part. 230030 tel. 
trabajo 203000. CP2. 
Contacto con usuarios del siste- 
ma MSX p/intercambiar progra- 
mas comerciales (poseo alguno de 
los mejores), y otros programas 
(de revistas, libros) hechos por mi 
mismo. Alfonso Velazco Gutié- 
rrez c/la Zarzuela n"2-4" D. Torre- 
lavega. Cantabria. CP2. 
Vendo juegos de Blagger Atlhetic 
Land etc. Preguntar por Sergio, 



C/Pobla de Lollet 22 ent. 3" Bar- 
celona 08028 tel. 330-4865. CP2. 

Vendo adaptador al sistema MSX 
para SPECTRA VIDEO 328/318, 
con toda su documentación y ga- 
rantia y con un cartucho de am- 
pliación de memoria MSX de 16K 
y otro de Konami (HIPER 
SPORTS 1) por 30.000 pts. Rega- 
lo 5 cintas MSX y otros 3 de 
Spectravideo. José Barrachina 
Alós c/Antonio Gotor 2 Albace- 
te, tel. 237138. CP2. 

Cambio todo tipo de programas, 
Spectravideo 318/328. José Maria 
Muñiz. C/M. Hermida n" 12 Pl. 
5B Santander. CP. 39009. Tel. 
372610. CP2. 




Conviértete en el más valiente pilo 
to interestelar. Libra una especta 
cular batalla y atraviesa el hiperes 
pació. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 
SENSACIONAL 
Producido por 
Manhattan Transfer, S.A. 
RocaiBatlle, 10-12 
08023 Barcelona 




Pioneer PX-7 

FUERA DE SERIE 
SUBRUTINAS. UNA 




ANALIZAMOS 5 
UNIDADES DE DISCO 

CALL LA LLAMADA 
DEL MSX / 



MORSE. LORO, /)' 
ROBY DEFENSER. (*) 
DESENSAMBLADOR. LIBRO DE CUARDIA 
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A TOPE ESTAS VACACIONES 
PIDE El TU QUIOSCO EL 
DOBLE DE VERANO Y EL 
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MSX por dentro 



iPor Lorenzo Hernández Talaverai 



DESENSAMBLADOR 
Z-80 



Conocer el MSX por dentro 
es un objetivo que tienen to- 
dos nuestros usuarios. El pro- 
grama desarrollado y explica- 
do que te ofrecemos es un ca- 
mino muy importante. Un 
camino que también pueden 
aprovechar los usuarios de los 
Spectra vídeo 318 y 328. 



Esté programa permite listar en 
mnemónicos cualquier progra- 
ma en código máquina Z-80 rea- 
lizado sobre un ordenador MSX. Ade- 
más es posible hacer volcados de memo- 
ria en hexadecimal, ASCII o ambos a la 
vez. El programa es compatible con dis- 
co e impresora, y la salida puede obte- 
nerse tanto por pantalla como por im- 
presora de 80 columnas. Con solo cam- 
biar dos líneas puede usarse en los orde- 
nadores SVI 3 1 8/328 ; esto es de particu- 
lar interés para los usuarios de estas má- 
quinas ya que, de momento, no existe un 
programa comercial de este tipo para las 
mismas. 

Cómo teclear el programa 

Antes de comenzar a introducir el pro- 
grama es conveniente redefinir algunas 
teclas de función, a fin de facilitar el 
trabajo. Se recomienda teclear lo que 
sigue en modo directo: 
KEY1, "M$="+CHR$ (&H22) 
KEY2, "THEN" 
KEY3, "GOTO" 
KEY4, "GOSUB" 

KEY5, "RETURN" +CHR$(&H0D) 
Si en cualquier momento se desea devol- 
ver a las teclas sus funciones normales 
basta teclar desf usr = 62 : ?usr(0) :cls (esto 
es una llamada a la rutina en ROM que 
asigna las funciones iniciales). La nume- 
ración de las líneas es totalmente regular; 
comienza en 10 y aumenta en saltos de 
10. Por tanto, para obtener cómoda- 
mente los números de línea basta con 
teclear AUTO y RETURN; a partir de 
aquí sólo se tendrán que introducir los 
textos de las líneas. 

Si se quieren suprimir los REM basta 
con pulsar RETURN al aparecer el co- 
rrespondiente número de línea. Hacien- 
do esto se tendrán unos 700 bytes más 
disponibles. 

USO DEL PROGRAMA 

Al estar escrito en BASIC, el programa 
se instala en la parte baja de la RAM del 



usuario (comienzo en 32768 (&H8000) 
para 32 o más Kbytes de RAM y 49152 
($HC000) para 16 Kbytes de RAM). 
Para trabajar no tendremos problema si 
la parte que nos interesa estudiar está en 
ROM (d irecciones - 32767). Ahora 
bien, si el programa en código máquina 
debe estar en RAM hay que cargarlo en 
alguna zona donde el BASIC no pueda 
alterarlo accidentalmente. La RAM 
puede considerarse dividida en dos par- 
tes por la dirección más alta del bloque 
de control de ficheros que, normalmen- 
te, coincide con la última dirección de la 
zona de cadenas de caracteres. Esta di- 
rección es controlada por el sistema por 
medio de variable MEMSIZ (MEMory 
SIZe=tamaño de memoria) y puede 
cambiarse por medio de la instrucción 
CLEAR a, b donde "a" es el espacio 
asignado para cadenas de caracteres y 
a b" es el nuevo "MEMSIZ". La segunda 
parte de la RAM contiene la zona de 
trabajo del sistema, formada por una 



queda totalmente libre, y es ahí donde 
cargaremos el código que deseemos de- 
sensamblar. 

A continuación vamos a ver los valores 
mínimos que pueden emplearse con 
CLEAR. Valores más pequeños pueden 
dar lugar a un error "OUT OF STRING 
SPACE" para "a" y "OUT OF ME- 
MORY" para "b". 
32 o más K RAM 

— CLEAR 100,41854 (desensambla- 
dor sin REM's) 

— CLEAR 100,42604 (desensambla- 
dor con REM's) 

16 K RAM 

— CLEAR 100,58238 (desensambla- 
dor sin REM's) 

— CLEAR 100,58988 (desensambla- 
dor con REM's) 

Teniendo en cuenta que el comienzo de 
la zona de trabajo está en 62336 con 
cassette y en 57441 con diskette obtene- 
mos esta tabla que nos da las posibles 
longitudes de código a desensamblar: 




con REM's 
cassette disquctte 
19732 14837 
3348 n/a 
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serie de variables y rutinas de control 
interno; esta zona tiene una longitud fija 
de 2586 bytes, a los que hay que añadir 
4895 más si se está usando el BASIC de 
disco. Toda la zona entre MEMSIZ y el 
límite inferior de la zona del sistema 



sin REM's 
cassette diskette 
20482 15587 
4098 n/a 

Debe tenerse cuidado en no sobrepasar 
estos límites, ya que se invadiría la zona 
de variables del sistema con lo que, muy 
probablemente, quedaría bloqueado el 
ordenador y tendríamos que efectuar un 
RESET para recuperar el control. 



MAPA DE MEMORIA DEL DESENSAMBLADOR 



J t J 16384 32767 


C32768 (32 K o más) 49152 (16 k) 65535 1 


ROM 

INTERPRETE 
BIOS BASIC 


DESENSAM- 
BLADOR 


fcAM 

ZONA 
LIBRE 


ZONA DEL 
SISTEMA 
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RELOCALIZACION DE 
PROGRAMAS 

A pesar de los límites expuestos ante- 
riormente, con este programa puede de- 
sensamblarse cualquier otro en código 
máquina, no importa cuál sea su longi- 
tud o dirección real de ejecución. Para 
ello nos vamos a valer de las facilidades 
que nos da la instrucción BLOAD y de 
una característica de este programa. 

1 . °- Preparación para trabajar con pro- 
gramas largos: Cuando tengamos un 
código que no nos cabe directamente en 
el espacio que le vamos a reservar efec- 
tuaremos estos pasos: 

1. Dividiremos el programa en blo- 
ques suficientemente cortos. 

2. Salvaremos cada bloque con la ins- 
trucción. 

BSAVE"dispositivo:nombre", inkio, 
fin 

3. Cargaremos luego separadamente 
cada bloque. 

2. "- Relocalización de bloques: Al ir a 

cargar un programa, o un bloque separa- 
do por el sistema anterior, podemos en- 
contrarnos con que todo o parte de él 
queda fuera de la zona donde debe estar 
para poder trabajar con él. Los pasos a 
seguir son: 

1. Cargarlo mediante la instrucción 
BLOAD"dispositivo ¡nombre", despla- 
zamiento. El "desplazamiento"" es la 
cantidad de bytes a sumar o restar de la 
dirección con que fue salvado para obte- 
ner la dirección de carga. Si es negativo 
deberá sumarse 65536 para obtener un 
número positivo. 

2. Al ejecutar el programa desensam- 
blador, introducir las direcciones de co- 
mienzo actual en memoria y de comien- 
zo real. 



METODO DE TRABAJO 

Los pasos que deben seguirse para traba- 
jar con este desensamblador son los si- 
guientes: 

1.° Cargar el desensamblador 

2° Efectuar el CLEAR más conveniente 

para el programa a estudiar. 

3. " Cargar el código máquina. 

4. ° Teclear RUN y ENTER. Aparecerán 
los siguientes mensajes: 
"Dirección inicial?". Es la dirección 
REAL de comienzo del programa. Este 
y los siguientes valores se dan en deci- 
mal. "Dirección final?". Dirección hasta 
la que se va a desensamblar. Contestar 
"s" o "n". Aquí reside la característica 
más importante del programa (relocali- 
zación). Si se contesta "n" aparece el 
mensaje "Dirección inicial en MEMO- 
RIA?"; introducir la dirección a partir 
de donde se ha cargado el código mien- 
tras se desensambla. 



"Salida por impresora? s/n". Pulsar a 
voluntad. 

5." Elegir una opción del menú que apare- 
ce en pantalla. Estas opciones son las 
siguientes: 

1.- Listado hexadecimal. Produce un 
volcado de los valores hexadecimales de 
los bytes elegidos. El formato es en lí- 
neas de 1 bytes (24=3 x 8 en impresora) 
encabezadas por la dirección real del pri- 
mer byte. 

2 - Listado ACII. Como el anterior, 
solo que cada byte está representado por 
su código ASCII. Los valores mayores 
de 127 (caracteres especiales) y menores 
de 32 (códigos de control) se representan 
por puntos. Los ceros, por ser muy ca- 
racterísticos, se representan por una 
almohadilla (#). 

3 - Listado combinado. Une los dos 
anteriores. En cada línea se representan 8 
bytes en pantalla y 16 en impresora. 

4.- Listado en mnemónicos. Está for- 
mado por: 

56 38 JP3182C33C0C .>. 
abe de 

a - La dirección del primer byte de la 
instrucción en decimal. 

b - Dirección del primer byte de la 
instrucción en hexadecimal. 

c- Mnemónicos de la instrucción. 
Los valores son decimales. Los saltos 
relativos se dan indicando la dirección de 
destino. 

d - Códigos hexadecimales de la ins- 
trucción. 

e.- Códigos ASCII de la instrucción. 
Todas las opciones terminan con el men- 
saje "Ok", permitiendo así pasar a otra 
opción o cargar un nuevo código. 
A no ser que se tenga un conocimiento 
claro de la estructura del programa a 
desensamblar no debe empezarse con la 
opción 4. En efecto, en código máquina 
no hay forma, en principio, de diferen- 
ciar datos de instrucciones; todo son 
números. Es conveniente, por tanto, un 
estudio general previo. La opción 3 (y 
también las 1 y 2) permiten tener una 
visión más de conjunto y ayudan a des- 
cubrir los mensajes ASCII que pueda 
contener el programa. Es una buena idea 
probar introduciendo como dirección 
de comienzo la 15734. La opción 4 daría 
una serie de mnemónicos válidos; sin 
embargo, si usamos la opción 3 vemos 
que lo que estamos desensamblando no 
son instrucciones, ya que lo que apare- 
cen son los mensajes de error del BA- 
SIC. 

VARIABLES DEL 
DESENSAMBLADOR 

PRG — Dirección real de comienzo 

del código máquina 
FIN — Dirección final (real) 



LNG — Longitud del código, en by- 
tes 

M$ — Construcción de mnemóni- 
cos. Auxiliar en volcados. 

RP — Bandera impresora, ^sali- 
da por impresora; 0=pantalla. 

CT — Contador 

DIR — Dirección de carga para de- 
sensamblar 

DF — Diferencia dirección real - 
dirección de desensamblado 

B — Valor decimal del byte 

C — Contador de bytes por cada 
línea de volcado 

N — Contador de líneas en los 
volcados 

HX — Dirección de desensambla- 
do actual 

D — Dirección real actual 

HX$ — Hexadecimales de la instruc- 
ción actual 

CHS — Caracteres ASCII de la ins- 
trucción actual 

C$ — Variable auxiliar 

ADAPTACION A 
SPECTRA VIDEO 318/328 

Este programa corre perfectamente en 
dichos ordenadores escribiendo: 
Línea 70 SCREEN,0: LOCATE,, 
O:WIDTH(40): CLS 
Línea 380 LOCATE„l:END 

ESTRUCTURA DEL 
PROGRAMA 

El desarrollo de este programa es muy 
sencillo. Consta únicamente de dos par- 
tes: una inicialización, donde el usuario 
suministra los datos necesarios, y una de 
ejecución, que produce la salida elegida. 
Esta última está formada por siete parte 
totalmente independientes, teniendo ca- 
da una una sola salida y una sola entrada. 
Esta parte corresponde, en líneas gene- 
rales, a una estructura "CASE". 
La parte del desensamblador, aunque 
muy extensa no es excesivamente com- 
pleja. Cada instrucción es decodificada 
por una rutina propia, apareciendo to- 
das en la misma secuencia que tienen en 
las tablas de instrucciones del Z-80. Se ha 
preferido esta disposición a incluir los 
nombres en datas, ya que esto último 
hace necesario pasar los datas a variables, 
lo cual supone una pérdida de tiempo al 
comenzar a ejecutar el programa. Aparte 
de ello, la estructura del programa resul- 
ta mucho más clara con este sistema. 
Para efectuar la decodificación se apro- 
vecha la gran racionalidad con que están 
distribuidas las instrucciones. Por ejem- 
plo, las instrucciones con códigos de 
operación de un byte pueden dividirse 
en cuatro subbloques perfectamente di- 
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ferenciados: el segundo de estos (códi- 
gos 64- 1 27) contiene las instrucciones de 
carga de registros, mientras que el terce- 
ro contiene las operaciones aritméticas y 
lógicas. Centrándonos en este último 
grupo, vemos que el resultado de la ope- 
ración (B AND 56)/8+l nos indica el 
tipo de operación a efectuar (todas ope- 
ran sobre el acumulador), de la siguiente 
forma: 

1- Operación "ADD A,..." 

2- Operación "ADC A,..." 

3- Operación SUB..." 
etc. 

Igualmente, la operación (B and 7)+l 
identifica al registro con el que se va a 
operar: 

1- Registro "B" 

2- Registro "C" 

3- Registro "D" 
etc. 

¿Y por qué se emplean las funciones 
lógicas de esta forma y se opera, en este 
caso, con los números 56 y 7, y no con 
otros? Tomemos como ejemplo la ins- 
trucción ADD, A,B. Su código de ins- 



trucción es 128, que representado en bi- 
nario es 10000000. Los 5 primeros bits 
nos dicen que es una instrucción ADD 
A,... ; los 3 últimos nos dicen que el regis- 
tro afectado es el B. 
¿ Cómo separar esta instrucción del resto 
de las 255 cuyo código de operación es 
de un solo byte? Lo primero es identi- 
ficarla separando sus primeros 5 bits. 
Desecharemos los 2 primeros, ya que lo 
que nos dicen es que es un código si- 
tuado entre 128 (10000000) y 192 
(1 1 000000), y ya lo sabemos por haber 
determinado esto en la línea 270 del pro- 
grama; debemos pues aislar los 3 si- 
guientes bits. A esta operación se le de- 
nomina enmascarar y se efectúa con un 
AND. Veamos qué ocurre. 

10000000 128 
AND 00111000 56 

00000000 
Consultando una tabla de instruc- 
ciones del Z-80 vemos la combinación 
XX000XXX corresponde a la instruc- 
ción ADD A,... Como el resultado es 
aquí múltiplo de 8 (los otros resultados 



posibles son 8, 16, 24, 32, 40, 48 y 56) es 
necesario dividir por 8 para obtener un 
parámetro utilizable por la instrucción 
ON...GOTO. 

Para saber cuál es el registro afectado, 
enmascararemos ahora los 5 primeros 
bytes; la máscara será 00000111, o 
sea, 7. 

10000000 128 
AND 00000111 7 

00000000 
La combinación XXXXX000 corres- 
ponde al registro B. No es necesario 
dividir por 8, ya que el resultado es siem- 
pre menor. 

Este tipo de operaciones es la base de 
todo el programa, y permite ahorrar un 
gran número de instrucciones. 
En cuanto a la parte de volcados, cada 
una de las 6 partes es totalmente inde- 
pendiente y puede separarse del progra- 
ma principal, si se desea más espacio. 
Todas tienen la misma estructura: un 
bucle que divide el listado en líneas (va- 
riable N) y otro que recorre cada línea 
(variable C). 



10 * ############################# 

20 '# # 

30 =*# desensamblador Z-S0 # 

40 ? tt(c)a6 Lorenzo H. Talavera # 

50 '# # 

70 KEYOFF: CLS: WIDTH (40) 

80 STQPÜN:ONSTOPGO3UB380 

90 INPUT" Di rece ion inicial " ; PRG 

100 INPUT "Di rece ion f i nal " ; F I N : LNG= 

FIN-PRG 

110 PRINT: PRI NT "Coinciden las di rec 
c iones reales con lasactuales en me 
mor i a?" 

1 20 MS= I NKEYS s I FM*= " " THEN 1 20EL3E I FM 
*= " N " ORMf = " n " THEN I NPUT " Di rece i on i n 
icial en MEMORIA" ; DIRELSEDIR=PRG 
130 PRINT:PRIMT"Salida por impresor 
a? s/n": PRINT: PRINT 

1 40 I NKEY* : I FM*= " " THEN 1 40ELSE I FM 

*= " s " ORM*= " 3 " THENRP= 1 ELSERP=0 

150 PRINT" 1 . - Listado Hexadecimai " s 

PRINT 

160 PRI NT "2.- Listado ASCII": PRINT 
170 PRINT"3.- Listado combinado" : PR 
I NT 

1S0 PRINT"4.~- Listado en mnemónicas 

" : PR I NT : PR I NT "Elegir una opción" 

1 90 Ms = I NKEY* : I FMs< " 1 " GRMs > " 4 " THEN 1 



90 



200 CLS : CT==DIRs DF-PRG-D I R 
210 I FRP-- 1 THENPR I NT " SAL I DA POR IMPR 
ESORA" : ONVAL <M$) GQTO3040 , 3 1 20 , 3200 ' 
220 ONVAL <M*> GOTO2730, 2810, 2900 
230 * 

240 f 'W*m* DESENSAMBLADOR ****** 
250 " 

260 B~PEEK < CT ) : HX=CT: D=CT+DF 

270 ON ( ( BAMD 1 92 ) ,'64 ) * 1 GOSUB400 , 840 , 

880, 970 

280 HXS=="":FORN=HXTOCT 

290 HX*=HX*+RIGHT* ( " " +HEXS ( PEEK (N) 

) ,2) 

300 NEXTN 

310 CHf*- M " í FORN=HXTOCT: B==PEEK (N) 
320 I FB=0THENC$~ " tt# " ELSE I FB >3 1 ANDB< 
1 28THEMC *=CHR* ( B ) ELSECS= " . " 
330 CH*=CH*+C* 
340 NEXTN 

350 PR'INTUSING "#####" ; D¡¡ : PRINT" 
+M*; :PRINTTAB<25)HX*; s PRI NTTAB (35) C 
H$ 

360 I FRF - 1 THENLPR I NTUS I NG " ##### " 5 D; 
: LPRINT" "+RIGHT* ( " "+HEX* (D) , 4 
)+" M +M*; :LPRINTTAB(37)HX$; :LPRIN 
TTAB (52) CHS 

370 CT=CT+1: IFCT<= (DIR+LNG-1 ) THEN26 
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380 END 

390 ' INSTRUCCIONES DE 1 BYTE 

400 IF(BM0D3)=4THENM*="INC " : GÜT0S7 


410 IF(BM0D8)=5THENM*="DEC " : G0T0S7 


420 I F ( BM0D8 ) =6THENM$= " LD " : G0SUB87 
0: M*=M*+" , " : GGTÜ2640 

430 ONB+1GOTO440, 450, 460, 470, , , , 430 

, 490 , 500 ,510, 520 , , , , 530 , 540 , 550 , 560 

, 570 i , , , 580 , 590 , 600 ,610, 620 , , , , 630 , 

640,650,660,670, , , ,680,690,700,710, 

720, , , ,730,740,750,760,770, , , ,780,7 

90, 800, 810, 320, , , , 830 

440 M*=" " : RETURN 

450 M$~"LD BC, " : GGTÜ2650 

460 M$-"LD BC, A" ¡ RETURN 

470 M*=" INC BC " : RETURN 

480 M$* " RLCA " : RETURN 

490 M*»"EX AF, AF' " : RETURN 

500 M$= " ADD HL , BC" : RETURN 

510 M*="LD A, (BC) ": RETURN 

520 Mf«"DEG BC": RETURN 

530 M*= n RRCA" : RETURN 

540 M*="DJNZ M : GOTÜ2660 

550 M*="LD DE , " : GOTÜ2650 

560 M*="Ld (DE) , A" : RETURN 

570 M*="IMC DE": RETURN 

580 N*= " RL A " : RETURN 

590 M*~"JR ":GOTQ2660 

600 M*="ADD HL, DE" : RETURN 

610 M*="LD A, (DE) ": RETURN 

620 N$="DEC DE": RETURN 

630 M*= " RRA " : RETURN 

640 M*="JR NZ, ":GÜTÜ2660 

650 M*«*'.JUD HL, " : GOTO2650 

660 M*= " LD ( " ¡ GOSUB2650 : M*=M*+ » ) , HL 

" : RETURN 

670 M*= n INC HL": RETURN 

680 M*~ " DAA " : RETURN 

690 M*="JR Z.":GÜTÜ2660 

700 M$= " ADD HLJ-IL" : RETURN 

710 M*="LD HL , ( " : GGSUB2650 : M*=M$+ " ) 

" : RETURN 

720 M*=="DEC HL" : RETURN 

730 Mé= ,, CFL n : RETURN 

740 M*="JR NC, ":GOTO2660 

750 M*="LD SP, " : GOTG2650 

760 M*="LD ( " : GQSUB2650: M$=M$+ " ) , A " 

: RETURN 

770 M*="INC SP": RETURN 

780 M*= " SCF " : RETURN 

790 M*="JR C,":GOTO2660 

800 M$= " ADD HL, SP" : RETURN 

810 M*="LD A, (" :GGSUB2650:M*=M*+") " 

: RETURN 

820 M*="DEC SP": RETURN ¡ 

830 M$= " CCF " : RETURN 

840 I FB= : 1 1 8THENM*= " HALT " : RETURN 

850 IFBM27THEN3S0 



860 M$="LD " : GGSUB870: M$=M$+" , " : GOT 
1 590 

870 ON ( BAND56 ) /8+ 1 GOSUB 1 600 ,1610,16 

20, 1630, 1640, 1650, 1660, 1670: RETURN 

880 ON (BAND56) /8+ 1 GOTO890 , 900 , 9 1 , 9 

20, 930, 940, 950, 960 

890 M$- " ADD A,": GOTO 1590 

900 M*="ADC A, " : GOTO 1 590 

910 M*="SUB ":GOTO1590 

920 M*="SBC A,":GQTO1590 

930 M*="AND ": GOTO 1590' 

940 M*="XOR ": GOTO 1590 

950 M*="OR ":GOTO1590 

960 M*="CP ":GOTO1590 

970 ON (BM0D8) +1GOTO980, 1020, 990, 102 

0. 1000, 1020, 1020, 1010 

980 M*= " RET " :GOTO1030 

990 W*«"JP ":GOSUB1030:M*=M*+", " s GG 

TO2650 

1 000 M$= " CALL " : GOSUB 1 030 : M$=M*+ " , " 
: GOTO2650 

1 1 M*= " RST " +STR* ( BAND56 ) : RETURN 
1020 0NB-191G0T0, 1120, , 1130, , 1140, 1 
150, , , 1 160, , 1 170, , 1 180, 1 190, , , 1200, 
, 1210, , 1220, 1230, , , 1240, , 1250, , 1260 
, 1270, , , 1280, , 1290, , 1300, 1310, , , 132 
0, , 1330, , 1340, 1350, , , 1360, , 1370, , 13 
80, 1390, , , 1400, , 1410, , 1420, 1430 
1 030 ON ( BAND56 ) /8+ 1 GOTO 1 040 , 1 050 , 1 
60 , 1 070 , 1 080 , 1 090 ,1100,1110 



1040 




M*+"NZ M : RETURN 


1050 


m= 


M*+"Z": RETURN 


1060 




Mft"NC M : RETURN 


1070 


m= 


M*+ M C" : RETURN 


1080 




M*+"PO" : RETURN 


1 090 


M*= 


M*+"PE" : RETURN 


1 100 


M$= 


M*+"P" : RETURN 


1 1 1 


M*= 


M*+"M" : RETURN 


1 120 


M$=- 


"POP BC": RETURN 


1 130 


M*= 


"JP ":GOTO2650 


1140 


M*= 


"PUSH BC": RETURN 


1 150 


M*= 


"ADD A, ":GOTO2640 


1 160 


MÍ= 


"RET" ¡RETURN 


1 170 




1 180 


M$- 


"CALL "sGOTQ2650 


1190 




" ADC A, " : GOTO2640 


1 200 




"POP DE": RETURN 


1210 


M$- 


" OUT ( " : GOSUB2640 : M*=M*+ " ) 


: RETURN 




1220 


M*="PUSH DE": RETURN 


1 230 


M$= 


"SUB ":GOTO2640 


1240 


M$- 


"EXX" : RETURN 


1250 


M*="IN A, ":GOTO2640 


1 260 




"IX": CT=CT+ 1 : G0T02 1 90 


'1270 


m* 


"SBC A, ":GOTO2640 


1 280 


M*="PÜP HL": RETURN 


1290 


M$ = 


"EX (SP) , HL" : RETURN 


1 300 


M$= 


"PUSH HL" -.RETURN 


1310 


M*= 


"AND ":GOTO2640 


1320 


M*="JF (HL) ": RETURN 
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1330 M$="EX DE , HL " : RETURN 

1340 CT=CT+1: GOTO 1690 

1350 M*="XOR ":GOTO2640 

1360 M*="PÜP AF " : RETURN 

1370 M$~ "DI": RETURN 

13B0 M*="PUSH AF " : RETURN 

1390 M*="OR ":GOTO2640 

1 400 M*« " LD SP , HL " s RETURN 

1410 M$-~ " El": RETURN 

1420 ]'.$=" IY" : CT=CT+1 : GOTO2190 

1430 M*= U CP ":GOTO2640 

1440 7 INSTRUCCIONES "CB" 

1450 B=PEEK<CT> 

1460 0NÍBAND192) / 64+1 GOTO 1470, 1560, 
1570,1580 

1470 ON (BAND56) /S+1GGT01 480, 1490, 15 

00, 1510, 1520, 1530, 1540, 1550 

1480 M*="RLC " ¡ GOTO i 590 

í 49® M*="RRC " : GOTO 1590 

1500 M*="RL " s GOTO 1590 

1510 M*="RR ": GOTO 1590 

1520 M*=="SLA ":GOTO1590 

1530 M*="5RA " : GOTO 1590 

1 540 M*= "Error " : RETURN 

1550 M*="SRL " : GOTO 1590 

1560 M*= ,, BIT"+STR*< (BAND56) / 8) -<-" , ": 

GOTO 1590 

1570 M*="RES"+STR*( (BAND56) /8)+'\ !« s 
GOTO 1590 

t 580 M*- " SET " +STR* ( ( BAND56 ) /S ) * " , " 
1 590 ON ( BAND7 ) * 1 GOTO 1 600 ,1610,1 620 „ 
1630, 1640, 1650, 1660, 1670 
1 600 M*=M*+ "B" : RETURN 
1610 M$=M*+"C" : RETURN 
1 620 M$=M$+ " D" : RETURN 
1 630 M*=M*+ "E" : RETURN 
1640 M*=M*+"H": RETURN 



1 650 M$=M*+ "L " : RETURN 

1 660 M*=M*+ " ( HL ) " : RETURN 

1 670 M*=M*+ " A " : RETURN 

1680 ■ INSTRUCCIONES "ED" 

1690 B-PEEK ( CT ) : M$= " " : IFB<640R (B>12 

3ANDB< 160) ORB>187THEN2170 

1 700 I FB > 1 23THEN20 1 

1710 I FBMOD8=0THENONB/8~-7GOSUB 1 600 , 

1610, 1620, 1630, 1640, 1650, 1660, 1670: 

M$= " I N " +M*+ " , ( C ) " : RETURN 

1 720 I FBM0D3= 1 THEN0NB/8-7G0SUB 1 600 , 

1610, 1620, 1630, 1640, 1650, 1660, 1670: 

M$="OUT (C) , "+M$: RETURN 

1730 IFB=66THENM$="SBC HL, BC" : RETUR 

N 

1740 IFB=67THENM$= : "LD ( " : GOSUB2650 : 
M*=M*+") , BC": RETURN 
1 750 IFB=68THENM$= " NEG " : RETURN 
IFB=69THENM$= "RETN" : RETURN 
IFB=70THENM*=" IM 0" : RETURN 
I FB-7 1 THENM$= "LD I, A": RETURN 
I FB=74THENM$= " ADC HL , BC " : RETUR 



1760 
1770 
1780 
1 790 
N 

1 800 



IFB=75THENM*="LD BC, ( " : G0SUB26 



50: M*=M*+" ) " : RETURN 

1810 IFB=77THENM*= M RETI": RETURN 

IFB==79THENM*="LD R, A" : RETURN 
I FB=82THENM$= " SBC HL , DE " : RETUR 



1820 
1830 
N 

1 840 

M$=M*+" ) , DE" : RETURN 



I FB=83THENM*= " LD ( " : GOSUB2650 : 



I FB=86THENM*= " I M 1 " : RETURN 
I FB-87THENM$- "LD A , I " : RETURN 
IFB=90THENM*=" ADC HL, DE" : RETUR 



1850 
1860 
1870 
N 

1380 I FB=9 1 THENM$= " LD DE, í " : G0SUB26 

50: M*=M*+" ) " : RETURN 

1890 IFB=94THENM*=" IM 2": RETURN 

IFB-95THENM$-"LD A, R" : RETURN 
I FB-98THENM$- "SBC HL , HL " : RETUR 



I FB=99THENM$= " LD ( " : GO3UB2650 : 



1 900 
Í9Í0 
N 

1920 

M*=M*+ " ) , HL " : RETURN , * 

1930 I FB= 1 03THENM$= " RRD " : RETURN 
1940 IFB=106THENM*="ADC HL , HL " : RETU 
RN 

1950 IFB=107THENM*="LD HL, < " ¡ G0SUB2 

650: M*=M*+ M ) " : RETURN 

i 960 I FB- 1 1 1 THENM*= " RLD " : RETURN 

1970 IFB=114THENM*="SBC HL,SP":RETU 

RN 

1980 I FB= 1 1 5THENM$- " LD ( " : GOSUB2650 
: M*=M*+" ) , SP" : RETURN 

1990 IFB=122THENM*="ADC HL,SP":RETU 
RN 

2000 I FB= 1 23THENM$= " LD SP , ( " : G0SUB2 
650: M*=M*+" ) " : RETURN 
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2010 IFB=160THENM*="LDI" : RETURN 
2020 I FB= 1 6 1 THENM*= " CP I " : RETURN 
2030 IFB=162THENM*=" INI" S RETURN 
2040 I FB= 1 63THENM*= " OUT I " : RETURN 
2050 I FB= 1 68THENM*= " LDD" : RETURN 
2060 I FB= 1 69THENM$= " CPD " : RETURN 
2070 I FB= 1 70THENM$= " I ND " : RETURN 
2080 I FB= 1 7 1 TH.ENM*= " OUTD " : RETURN 
2090 I FB= 1 76THENM*= " LD IR": RETURN 
2 1 00 I FB= 1 77THENM$= " CP IR": RETURN 
2110 IFB=178THENM*=" INIR" : RETURN 
2120 IFB=179THENM*="0TIR" : RETURN 
2130 I FB= 1 84THENM*= " LDDR " : RETURN 
2 1 40 I FB= 1 85THENM$= " CPDR " : RETURN 
2150 IFB=186THENM*=" INDR " : RETURN 
2160 IFB= 187THENM$= "OTDR " : RETURN 
2170 M$=" Error " : RETURN 

2180 > INSTRUCCIONES REGISTROS IND 
ICE 

2190 B=PEEK(CT) 

2200 IFB=9THENM*="ADD " + I *+ " , BC " : RE 
TURN 

2210 I FB~25THENM$== " ADD " + 1 *+ " , DE " : R 
ETURN 

2220 I FB=33THENM$= " LD "+l$+" , " : GOTO 
2650 

2230 J.FB=34THENM$="LD ( " : GOSUB2650 : 
M*=M$+" ) ,- " + I$: RETURN 

2240 IFB=35THENM$=" INC "+I*: RETURN 
2250 IFB=41THENM*="ADD "+I$+" , HL " : R 
ETURN 

2260 IFB=42THENM*="LD " + I*+ " , ( " : GOS 
UB2650: M*=M$+" ) " : RETURN 
2270 I FB-43THENM*= " DEC " + I £ : RETURN 
2280 I FB=52THENM*= " I NC " : G0T026 1 
2290 IFB=53THENM*="DEC ":GQTO2610 
2300 IFB=54THENM*="LD " : G0SUB26 1 : C 
T=CT+ 1 : M*=M*+ " , " +STR* ( PEEK ( CT ) ) s RET 
URN 

2310 IFB-57THENM$= "ADD "h-I$h-" , SP" : R 
ETURN 

2320 IFB>1 1 1 ANDB< 120THENM$= " LD " ¡ GO 
SUB26 1 : M*=M$+ " , " : ON ( BAND7 ) * 1 GOTO 1 6 
00, 1610, 1620, 1630, 1640, 1650, 2470, 16 
70 

2330 I FB >69ANDB< 1 27ANDBMÜD8=6THENM* 
= "LD " : ON (BAND56) /8+1GO5UB1600, 1610 
, 1620 , 1630, 1640, 1650,2470, 1670: M*=M 
*+" , " : GOTO2610 

2340 I FB= 1 34THENM$= " ADD " : G0T026 1 
2350 IFB=142THENM*="ADC ":GOTO2610 
2360 IFB=158THENM$="SBC ":GOTO2610 
2370 IFB=166THENM$=" AND ":GOTO2610 
2380 IFB=174THENM*="X0R " :GOTO2610 
2390 IFB=182THENM*="0R " :GOTO2610 
2400 IFB=190THENM*="CP ":GOTO2610 
2410 IFB=225THENM$="P0P RETURN 
2420 IFB=227THENM*="EX ( SP) , " + I*>: RE 
TURN 



2430 IFB=229THENM*="PUSH M +I*:RETUR 
N 

2440 IFB=233THENM*="JP (" + 1 **»•)•« : RE 
TURN 

2450 I FB=249THENM*= " LD SP , " + I $ ¡ RETU 
RN 

2460 IFB=203THENCT=CT+2: IF (PEEK (CT) 

M0D8) =6THEN0N (PEEK (CT) AND192) /64+1G 

OTO2480 , 2560 , 2570 , 2580 

2470 M$="Error": RETURN 

2480 ON (PEEK (CT) AND56) /8+ 1 GOTO2490 , 

2500 ,2510, 2520 , 2530 , 2540 , 2470 , 2550 

2490 M*="RLC " :GOTO2600 

2500 M*="RRC ":GOTO2600 

2510 M*="RL ":GOTO2600 

2520 M$="RR ":GOTO2600 

2530 M*="SLA ":GOTO2600 

2540 M*="SRA ":GOTO2600 

2550 M*="SRL ":GOTO2600 

2560 M*="BIT ":GOTO2590 

2570 M*="RES ":GOTO2590 

2580 M*="SET " 

2590 M*=M*=M*+STR* ( ( PEEK ( CT ) AND56 ) / 
8) + " , " 

2600 M*=M*+" ( " + I $+"-<-" : B=PEEK(CT-1 ) : 
GOSUB2620: M*=M*+" ) " : RETURN 
26 1 CT=CT+ 1 : M*=M*+ " ( " + I *+ " + " : B=PEE 
K (CT) : GOSUB2620: M$=M*+" ) " : RETURN 
2620 B= ( (B>127) * (256-B) - (B< 128) *B) : 
I FB< 0THENM*=M*+STR* ( B ) ELSEM*=M*+ " + " 
+RIGHT*(STR*(B) ,LEN(STR*(B) )-l) : RET 
URN 

2630 ' SUBRUT I ÑAS DE CONVERSION 
2640 CT=CT+1 : M*=M*+STR* (PEEK (CT) ) : R 
ETURN 

2650 CT=CT+2: M*=M*+STR* ( 256*PEEK ( CT 
) +PEEK (CT-1 ) ) : RETURN 

2660 CT=CT+ 1 : M*=M*+5TR$ ( CT- 1 - ( PEEK ( 
CT ) < 1 28 ) * ( PEEK ( CT ) +2 ) - ( PEEK ( CT ) > 1 27 
) * (PEEK (CT) -254) +DF) : RETURN 
2670 ' 

2680 - * RUTINAS DE VOLCADO DE MEMO 
RIA * 

2690 ' 

2700 ' VOLCADO SOBRE PANTALLA 

2710 ? 

2720 ? HEXADECIMAL 

2730 FORN=D I RTOD I R+LNGSTEP 1 

2740 PRINTUSING"#####";N+DF; :PRINT" 
>• ■ 

2750 FORC=0TO9: B=PEEK (N-t-C) 

2760 IFB=0THENM*="## ,, ELSEM*=RIGHT* ( 

u 0"+HEX*(B) ,2) 

2770 I FC=9THENPR I NTM*ELSEPR I NTM*+ " 
■i . 

2780 NEXTC, N 
2790 END 

2800 * ASCII 

2810 FORN=D I RTOD I R+LNGSTEP 1 
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2820 PR I NTUS I NG " ##### " ; N+DF ; : PR I NT " 
>■ • 
i 

2830 FÜRC=0TÜ9 : B=PEEK ( N+C > 

2840 IFB=0THENC*="##"ELSEC*=" . " 

2850 IFB>31THENC*=RIGHT*<" "+CHR*(B 
) ,2) 

2860 I F09THENPR I NTCSELSEPR I NTC*+ " 

2870 NEXTC , N 
2880 END 

2890 > HEX ~ ASCII 

2900 FORN=D I RTOD I R+LNGSTEP8 : CH*= " " 
2910 PRINTRIGHT*("000"+HEX*(N+DF) ,4 
)+" "; 

2920 FORC=0TÜ7 s B=PEEI< (N+C ) 

2930 I FB=0THENM*= " ## " ELSEM*=R I GHT* ( 

"0"+HEX* (B) , 2) 

2940 IFB=0THENC*=''#"ELSEIFB>31ANDB< 

1 28THENC*=CHR* ( B ) ELSEC*=" . " 

2950 CH*=CH*+C* 

2960 PRINT" "+M*; 

2970 NEXTC: PRINT" "+CH* 

2980 NEXTN 

2990 END 

3000 ' 

3010 > VOLCADO SOBRE IMPRESORA 

3020 ' 

303*0 ' l-IEXADECIMAL 

3040 FORN=D I RTOD I R-I-LNG5TEP24 

3050 LPR I NTUS ING "#####"; N+DF; sLPRIN 

T" 




10 

20 
30 
40 
50 
60 
70 
80 
90 
1 00 
1 10 
1 20 
1 30 
140 
150 
160 
170 
180 



- 58 

- 58 

- 58 

- 58 

- 58 

- 58 
-242 
-156 

- 86 

- 61 

- 62 
~ 21 
-246 

- 41 

- 81 
-102 
-170 

- 61 



190 

200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 



- 91 
-171 

- 16 

- 12 

- 58 

- 58 

- 58 
-142 

- 
-254 
-209 
•139 

•165 
•209 
■116 
102 



370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 



- 78 
-129 

- 58 
-200 
-187 

- 27 
-206 
-108 

- 26 
-238 
--203 
-142 
-106 

- 1 22 

- 63 
-189 
-148 



540 - 



550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 



3060 FORC=0TQ23: B=PEEK (M+C) 

3070 I FB= : 0THENM*= "##" ELSEM*=R I GHT* ( 

"0"+HEX*(B) ,2) 

3080 LPRINT" "+M*; 

NEXTC: LPRINT: NEXTN 
END 

ASCII 

FORN-D I RTOD I R+LNGSTEP24 
LPR I NTUS I NG " ##### » s N+DF ; : LPR I N 



3090 
3100 
3 1 1 
3 1 20 
3130 
T " "; 

3140 FORC=0TO23: B=PEEK (N+C) 
3150 IFB=0THENC*=="##"ELSEIFB>31ANDB 
< 128THENC*=RIGHT* ( " "+CHR*(B> ,2)EL3 
EC*=" ." 

LPRINT" "+C$; 
NEXTC: LPRINT: NEXTN 
END 

HEX - ASCII 
FORN=D I RTOD I R+LNGSTEP 1 6 : CH*= " " 
LPR I NTR I GHT* ( " 000 " +HEX$ ( N+DF ) , 



3160 
3170 
3180 
3190 
3200 
3210 
4) + " 
3220 
3230 



"5 

FORC=0TO 1 5 : B=PEEK ( N+C ) 

I FB=0THENM*= " ## " ELSEM$=R I GHT$ ( 



3240 I FB=0THENC*= "#" ELSEIFB >3 1 ANDB< 

128THENC*=CHR* <B) ELSEC*=" . " 

3250 CH*=CH*+C* 

3260 LPRINTM$+" " ; 

3270 NEXTC: LPRINT" " +CH* 

3280 NEXTN 

3290 END 



1 Desensamblador Z-80 



• 30 

■ 67 
207 

• 75 
■127- 
■126 

- 67 
■193 

- 81 

■ 83 

- 41 
-134 
•218 

- 50 

- 5 
-137 
- 1 34 
-204 



730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 





- -75 

- 60 

- 56 

- 51 
-233 

- 72 
-238 
-152 

- 51 
-219 
• 56 

176 
-164 
■235 
•182 
■162 
•231 

230 



910 
920 
930 

940 

950 
960 
970 
980 
990 
1000 
1010 
1020 
1 030 
1040 
% 050 
1060 
1070 
1080 
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Idea de M'ideaiogic 
Utiles con potencia 




ÜLA SOLUCION!! 



IDEABASE 

— Acepta formato de etiquetas. 

— Funciones de modificación, borrado y añadido de información en registros. 

— Información almacenaje en cinta o disco. 

— Capacidad de 42 K en memoria. 

— Mentís conversacionales e interactivos. Máxima facilidad de uso. 

— Ordenación de registros en función de uno o más 
campos. 

— Presentación en cartucho. 

— Gestiona disco y cinta. 

— Compatible con IDEA TEXT y DIM-CALC 



□ 



Solicite 
información 
a nuestro 
departamento 
de Marketing 



:f II 




IDEALOGIC 

Calle Valencia, 85 - 08029 BARCELONA - Télex 54554 DLGC 
Teléfonos 253 86 93 - 253 89 09 - 253 90 45 - 253 74 00 



IDEA TEXT 

- Editor de pagina entera con control total de márgenes, ¡«tentaciones, cen- 
trado, espacios, encabezados, pies de página, numerador automático, etc. 

- Permite mover, reemplazar e insertar bloques de texto de una manera fácil. 

- Función de visualización del texto final, permitiendo examinar cual será d 
resultado de la impresión. 

- Capacidad de 42 K en memoria. 

- Máxima facilidad de uso apareciendo constantemente 
información en la pantalla. 

- Mentís comprensivos en ventanas. 

- Presentación en cartucho. 

- Gestiona disco y cinta. 

- Compatible con IDEA BASE y DIM-CAL. 



DIM-CALC 

Hoja de cálculo muy fácil de utilizar, que permite desarrollar desde cálculos 
sencillos a otros complejos y sofisticados. Compatible con IDEA TEXT e IDEAI BASE. 



Delegaciones: 

Distribuidores Generales en: Almería, Badajoz, Barcelona, Bilbao 
Cádiz, Córdoba, Gijón, Granada, La Coruña, Las Palmas, Lérida, 
Madrid, Málaga, Murcia, Oviedo, Palma Mallorca, Pamplona, Sevi- 
lla, Valencia, Valladolid, Vigo, Zaragoza, Argentina, Chile y México 



Programas 
Sony MSX, para lo que 



guste ordenar. 




MSX 



HIT 3IT 




PROGRAMAS SONY MSX 



Educativos 

Monkey Academy 
Alfamat 
Viaje Espacial 
Multipuzzle 
Noria de Números 
Corro de Formas 
Coconuts 
Yo Calculo 
Selva de Letras 
El Cubo 
Informático 
Electro-graf 
El Rancho 
Teclas Divertidas 
Boing Boning 
Compulandia 
Mil Caras 
Logo 

Países Mundo-1 
Países Mundo-2 
Tutor 

Computador 
Adivino 

Aprend. Inglés-l 
Aprend. lnglés-2 
Cosmos 
Curso de Básic 
Juego de 
Números 

Juegos 

Antártic Adventure 
Athletic Land 
Sparkie 
Juno First 
Car Jamboree 
Battle Cross 
Crazy Train 
Mouser 

Computer Billiards 
Alí Babá 
Track & Field-I 
Track&Field-ll 
Dorodon 
Chess (Ajedrez) 
Senjo 
E.I. 

Lode Runner 
Super Tennis 



• Backgammon 

• Super Golf 

• Hustler 

• Binary Land 

• Driller Tanks 

• Stop the Express 

• Ninja 

• Les Flics 

• La Pulga 

• The Snowman 
•Cubit 

• Pack 16K 

• Fútbol 

• Kung Fu 
•Batalla Tanques 

• Mr. Wong 

• Xixolog 

• Buggy 

• Sweet Acorn 

• Peetan 

• Jump Coaster 
•Buggy 84 

• 3D Water Driver 

• Pinky Chase 
•WeddingBells 

• Fightting Rider 

Aplicación 

• Memoria Ram 4 K 

• Creative 
Greetings 

• CharacterCollect 

• Quinielas y 
Reducciones 

• Pascal 

• Ensamblador 

• Generador Juegos 

Gestión 

• Hoja de Cálculo 

• Homewriter 

• Control Stocks 

• Contabilidad 
Personal 

• Ficheros 

• Procesador 
de Textos 

• Control Stocks 

• Vencimientos 

• Contabilidad 
1.500 



MSX por dentro 



Test de Listadoi 



i Desensamblador Z-80 



1 260 




1 790 


-104 


2320 


- 136 


2850 


-135 


1 0~7 CA 
1 Z / VJ 


— 20 


i a 00 


— 1 01-. 


2330 


-243 


2860 


-236 


1 .¿-OÍ:'' 




1 8 1 


— 1 46 


234 


-165 


2870 


- 64 


* r-> r~t ,-i 

1 Ztw 


- 1 o 1 ? 


1 820 


- 175 


2350 


-172 


2880 


-129 


1 J'tí'Sj 




i o ~y i~a 

1 tí J-0 


- 1 J'-l 


236 


-204 


2890 


- 58 


1 •_' 1 


— 1 6¿ 


1 840 


— 1 15 


2370 


-207 


2900 


- 57 


1 ÜXIÍ 


— .¿i 


1 850 


- 4£> 


2380 


-253 


2910 


- 141 


"1 3 ~- j¡3 


— o¿ 


1 860 


~ 1 74 


2390 


-173 


2920 


-138 




- 1 4v_j 


1 870 


- 1 24 


2400 


-167 


2930 


-111 


-i ~y cr ,-( 


■"i /"t Al 
— -100 


1 880 


- 12 1- 


241 


- 63 


2940 


-218 


'1 Z_ #7< 

1 o 60 




4 r~i t~'i 
1 UV0 


— 55 


2420 


- 15 


2950 


-165 


1 ~7~7 r~A 
i. 5 f VJ 


"""> A O 

~ .¿.4V 


1 atufa 
1 V00 


— 19 1 


2430 


- 148 


2960 


-114 


1 ■-•aVJ 


~ Jl 


1 O 1 ¡~A 

1 7 1 í¿' 


— ICO 

— 1 J7 


2440 


- 120 


2970 


-117 


J. fXf 


1 1 n 


1 O ^ 


— 1 4-i 


2450 


—■ 1 w 


2980 


-209 


1 A f/1 l~A 
1 VJ \9 


Qcr 

TvJ 


1 O H" í 'A 

1 V _'0 


— V6 


2460 


- 18 


2990 


-129 


1 A 1 t~A 
141 VJ 




1 940 


- 1 5 1 


2470 


4 * r-> 

-118 


3000 


- 58 


•1 A ^t'A 




1 950 


4 cr /■< 

- 150 


2480 


-180 


30 1 


- 58 


1 4 


— OD 

7D 


1 960 


- 98 


2490 


- 1 j.6 


3020 


- 58 


1 440 


cr o 

— O O 


i o ~y /i< 

1 970 


- 190 


2500 


- 142 


3030 


- 58 


■1 A É?. i'A 


— 1 / -J 


1 980 


— 1'7oí 


2510 


— 69 


3040 


w 43 


1 A í. t"A 


i / Y 


1 990 


-182 


2520 


- 75 


3050 


- 9 


1 A ~7 CA 
1 4 / VJ 


— _>o 


'i í":< /Ti 
¿1000 


- 18 1 


2530 


-135 


3060 


-152 


x Hulí' 


~- 1 A/. 


^í¿? 1 Í£J 


— 1 j.S 




- 1 4 1 


3070 


-111 


1 /IC'í/f 


1 Ji. 


2020 


- 142 


2550 


- 152 


3080 


-126 


1 \J\L>Xt 


— "7 O 


20 00 


4 a —y 

— 147 


2560 


- 124 


J.-.090 


4 / r~» 

-168 


1 Jl VJ 


— 


-~1 ,-< A l"A 
-1040 


— ¿i45 


2570 


4 T cr 

- 1 -j'5 


_•• 1 


- 1 -IV 




1 HJ 


2050 


4/14 

-141 


2580 


-144 


3110 


- 58 


1 i^t'ffi 
1 «J -.•>!' 


1 Jl 


'~>t~Al i~A 

¿1060 


•i /i Cr 

— 1 45 


2590 


4 r-\ — 7 

-127 


•3 120 


- 43 


1 ^ «t K.' 


lio 


/H ~7 <~A 

20 / 


— 1 50 


2600 


- 37 


3130 


9 


1 ^ c :í7< 
J. Jüíí' 


H A O 


2080 


-248 


2610 


-123 


3140 


-152 


1 JOl. 


1 o¿ 


r> 

¿1090 


-xij.to 


2620 


4 cr 

-159 


3150 


- 67 


1 *S7-<ft 


— 1 "7~\ 


¿1 1 K' t'» 


— 240 


*~» /. T r"A 
-l6 _'0 


— 58 


3 160 


-116 


1 JOU 


1 Oxl 


2 1 1 


/ — , /i cr 

-245 


2640 


- 69 


3170 


-168 


1 ^Ql/i 

J.J ' i£' 




2 1 219 




2650 


~24-j. 


3180 


-129 


i. (Dií'ií' 


— 1 A 
lo 


2 1 3® 


-¿.--■9 


2660 


-225 


3190 


-- 58 


J. O 1 ¡i" 


1 / 


2 1 40 


-24 o- 


-¿670 


- 58 


3200 


- 63 


1 / ¡"A 
1 6-10 


1 O 


2150 


-248 


2680 


- 58 


3210 


-153 


i Z. T i"A 

1 o ->0 


— 1 V 


2 1 60 


- 5 


2690 


- 58 


3220 


-144 




_ T"> 


2 1 7 


- 1 1 8 


2700 


- 58 


3230 


-11 1 


1 Qw'SÍ' 




2180 


- 58 


2710 


•- 58 


3240 


-218 


1 6oS' 


- 17v 


2190 


- 175 


2720 


- 58 


3250 


-165 


16/0 


- 15 


2200 


- 41 


2730 


- 29 


3260 


-126 


1 ¿. Q í7-t 
1 QÜIÍ 


_ ero 
— JO 


2210 


- 59 


2740 


-241 


3270 


-129 


1 690 


— 7 


2220 


-238 


2750 


~ 1 40 


3280 


-209 


1700 


- 14 


2230 




2760 


-111 


3290 


- 129 


I 7 1 


--182 


2240 


- 1'08 


2770 


- 






1 720 




2250 


- 86 


2780 


- 64 






1730 


-112 


2260 


- 84 


2790 


-129 






1 740 


- 95 


2270 


-102 


2800 


- 58 






1 750 


- 47 


2280 


- 1 00 


2810 


- 29 






1760 


-143 


2290 


- 87 


2820 


-241 






1770 


._ 29 


2300 


- 


2830 


- 1 40 


TOTAL: 


1 780 


-158 


2310 


-117 


2840 


- 42 




39599 
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MSX software 



ASI HACEMOS 
NUESTRAS CASSETTES 



Todos los lectores conocen los 
pasos previos al proceso de fa- 
bricación de nuestros cassettes, 
es decir, el diseño y la elaboración del 
mismo. Pero a partir de ese momento, 
el proceso de producción del cassette 
les es desconocido. 

La elaboración definitiva de las cintas 
de MSX CLUB DE CASSETTES tiene 
lugar en los estudios SONIDUPLEX 
EUROPA situados en Barcelona. Allí, 
Ramón Alfageme, responsable técnico 
del estudio de encarga de realizar — en 
colaboración con nuestros programa- 
dores — el «master» definitivo del pro- 
grama. 

ELABORACION DEL 
MASTER 

El proceso a seguir para la elaboración 
del master se lleva a cabo con la máxi- 
ma escrupulosidad: 

En primer lugar se carga la cabecera del 
programa en un ordenador MSX por 
parte de uno de nuestros técnicos. Acto 
seguido, se comprueba que la carga ha- 
ya sido correcta y se efectúa una prueba 
de grabación. Para ello, el programa se 
«saca» directamente del ordenador a un 
magnetófono de bobina de cinta de 1/2 
pulgada mientras Ramón se encarga de 
ajustar los vúmetros del aparato, es de- 
cir los potenciómetros que miden el 
volumen. 

Una vez, efectuado esto, se efectúa la 
grabación definitiva del primer frag- 
mento. Durante esta operación, un 
«chivato» acústico permite seguir la 
operación mientras se controla que la 
transmisión sea correcta mediante un 
osciloscopio. 

Esta secuencia de operaciones se repite 
las veces necesarias con cada una de las 
partes que constituyan el programa de- 
finitivo. Tras haber completado el mas- 
ter de la primera cara, se repiten todas 
las operaciones para la segunda, en una 
pista diferente de la cinta de 1/2". 
A partir de este momento, el trabajo de 
nuestros programadores finaliza. 
El técnico del estudio delimita el co- 
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mienzo y el final de la grabación en la 
cinta de 1/2". 

Los estudios SONIDUPLEX están a la 
vanguardia en cuanto a tecnología para 
la duplicación de cassettes. Aparte de la 
profesionalidad de su personal, los apa- 
ratos que utilizan son de la electrónica 
más sofisticada, lo que asegura el con- 
trol de calidad en el proceso de fa- 
bricación. ' 

CAMBIO DE FORMATO 

Como queda dicho, el master se hace 
sobre cinta de 1/2". El tamaño de la 
cinta que utiliza un aparato de cassette 




Grabación del master a alta velocidad 



Para salir al paso de cual- 
uier atisbo de duda acerca 
e la calidad de carga de 
nuestros cassettes, pasamos 
a detallar seguidamente a 
nuestros lectores el proceso 
de confección de los cassettes 
de nuestros programas. ' 



ordinario es de 1/7", y para realizar la 
operación de cambio de formato, en los 
estudios se utiliza una TAPEMATIC 
5000, máquina con corazón de Z80, co- 
mo tu MSX, que efectúa la lectura a alta 
velocidad con la cinta absolutamente 
suelta en un lazo sinfín. t 
Esta máquina detecta tanto el inicio co- 
mo el fin del programa, repite la opera- 
ción tantas veces como se le requiera y 
avisa de cualquier posible error. 
Conectados a esta máquina en serie, es- 
tán los «esclavos», máquinas auxiliares 
que graban las copias que se indican en 
la unidad central también a alta ve- 
locidad. 




Carga de las cassettes 



Detalle de la mesa de mezclas 




3 




Quede claro que cuando hablamos de 
alta velocidad no estamos hablando de 
velocidad de transmisión de los datos 
ni de nada por el estilo, sino simple- 
mente de la velocidad a la que pasa la 



cinta por los cabezales de grabación/re- 
producción, que es nada más y nada 
menos que de 608 cm/seg. en la unidad 
central (M ASTER) y de 152 o 304 cm/ 
seg. en cada esclavo. 
Al margen de la velocidad de grabación 
— que es sorprendente — y de la canti- 
dad de copias que pueden efectuarse 
trabajando a alta velocidad, hay una se- 
rie de cuestiones que quedan resueltas 
al trabajar con este equipo, en primer 
lugar, al estar la cinta del master total- 
mente desenrollada, la electricidad es- 
tática es prácticamente inexistente. La 
cinta no sufre tensión alguna por este 
motivo y esto redunda en que no haya 
posibilidad alguna de error en cuanto 
se refiere a la transmisión del programa 
desde el master a los esclavos. 

CARGA DEL CASSETTE 

Tras haber grabado dos o tres veces el 
programa en cinta de 1/7", se realiza el 
montaje de unos cassettes de prueba. 
La primera vez que observamos este 
proceso quedamos francamente sor- 
prendidos. Esperábamos — al igual que 
mucha gente — que la inserción de la 
cinta en la carcasa del cassette se hacía 
en pequeñas bobinas que se montaban 
sobre una mitad de la carcasa y que 




Cambio de formato. Los esclavos trabajando sin parar 

Etiquetado y encelofanado tras el tiraje 




posteriormente se atornillaba o termo- 
soldaba la otra mitad de la carcasa. Na- 
da más lejos de la verdad. 
La inserción de la cinta dentro del cas- 
sette la realiza una TAPEMATIC 2000 
(figura 2), máquina que funciona me- 
diante un complicado sistema de válvu- 
las de aire comprimido que se abren y 
cierran — controladas por un Z80, que 
tiene programados catorce pasos dife- 
rentes — para, mediante la proyección 
y absorción del aire activar unos pisto- 
nes que posibilitan que las partes móvi- 
les de la máquina realicen una opera- 
ción tan precisa y complicada como es 
la inserción de la cinta ¡dentro de un 
cassette absolutamente cerrado! La 
operación se realiza del siguiente 
modo: 

Las cassettes vacías se colocan en un 
alimentador vertical. De ahí pasan uno 
a uno a través de unas guías hasta un eje 
bobinador, que puede girar hasta trein- 
ta metros por segundo. Paralelamente a 
esto, la cinta de las dos bobinas situadas 
a la derecha de los estuches, es arrastra- 
da por una pieza móvil hasta un sopor- 
te donde se empalma la cinta transpa- 
rente del principio que a su vez entra 
por el orificio interior de la carcasa has- 
ta empalmar con el carrete interior 
inserto en el eje bobinador, que gira 
hasta completar la carga de la cinta. 
Naturalmente, el sistema detecta el 
principio y final de cada grabación, 
además de detectar las cassettes defec- 
tuosos y rechazarlas por un orificio au- 
xiliar y avisar inmediatamente de cual- 
quier anomalía que pueda producirse 
en el sistema. 

Tras obtener las tres o cuatro primeras 
muestras, sobre el terreno se realiza la 
primera comprobación. Nuestros pro- 
gramadores disfrutan como niños pro- 
bando el primer juego salido de la má- 
quina. Se efectúa la comprobación por 
ambas caras y el resto de cintas se re- 
parten para que cada uno pueda probar 
a su antojo todas las alternativas. Si hay 
beneplácito — lo cual sucede siempre — 
se efectúa el tiraje y se empaqueta. 
Como puede verse, al margen de la se- 
guridad que ofrece el estudio, se efec- 
túa un riguroso control de nuestros 
productos, lo que redunda en beneficio 
de nuestros usuarios. 
Lamentablemente, otros — con más 
afición corsaria que informática — no 
pueden asegurar lo mismo de sus pro- 
ductos. De todos modos, la creciente 
demanda de nuestros programas por 
cada vez más usuarios, nos reafirma en 
nuestra evidente política de ofrecer ca- 
lidad a un precio más que razonable. 

EL EQUIPO DE MSX CLUB DE 

CASSETTES 
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Programa 



iPor Manuel Moureloi 



PAIS 

DEL CHOLLO 



Durante el "Un, Dos, Tres" se puso 
de moda un juego de tablero con el 
"chollo". Este juego inspiró este 
programa homenaje al desaparecido 
concurso de Chicho Ibáñez Serrador, 
que nos remitió Manuel. No obstante 
su buena realización puede ser mejora- 
do y ampliado por nuestros lectores. 




1 : 

2 : 

3 ; 
10 
20 
30 
40 



****PAIS DEL CHOLLO*** 

**F'OR MANUEL MOURELO** 

**** PARA MSX CLUB *** 
' ********************** 
' LECTURA DE DATOS 

3^1 /^T )j( ^f- $f> ^f- )|í í|c 

ON STOP GOSUB 10000: STOP ON:COLO 



R 15, 1 , 1 : SCREEN 2,2,0: OPEN " GRP : " AS 
#1 

50 DIN A* (5) , H$(30) , J*(30) ,K*<30> 
,T(30) 

55 GOSUB 2700 

60 D*=STRING$ (32,255) 

70 MID*(D*, 1, 1>=CHR*<127> 

80 MID*(D*, 16, 1)=CHR$(127) 

90 MID*(D$, 17, 1)=CHR*(254> 

100 MID* <D*,32, 1 ) =CHR* (254) 

110 SPRITE* (6) =D* 

120 FOR 1=0 TO 4:F0R J=l TO 5 : READ 
D* 

1 30 A* ( I ) =A$ ( I ) +CHR* ( VAL < " &h " +D* ) ) 



140 NEXT: NEXT 

150 FOR 1=0 TO 5:D$=CHR*(0) 

160 FOR J=0 TO 5: READ D 

170 IF J=3 THEN D$=D*+CHR* <0> 

1S0 D*=D*+A*(D) 

190 NEXT: SPRITE* ( I ) =D* 

200 NEXT 

210 FOR 1=1 TO 30 

220 READ H*(I> , J*(I) , K* ( I ) 

230 NEXT I 

240 FOR A=7 TO 9 

250 FOR 1=1 TO 32: READ T 

260 F*=F*+CHR* (T) 

270 NEXT I: SPRITE* (A) =F* 

280 F*= " " : NEXT A 

300 7 ########################## 

310 ' DISEÑO DE LA PANTALLA 

320 7 

330 CLS : DD=3000 : D I =3000 : T=30 : Z 1 ¡fe 164 
: MI =53: Z= 164: M=83: GH=0: FF=0: FA=0: FL 
=0 : COLOR 15,1,1: GOSUB 430 
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340 LINE (0,0) -(180, 140) „ 15, B 
350 L I NE ( 20 , 30 ) - ( 40 , 110) , 1 5 , B : FÜR E 
=30 TD 110 STEP 20 : LINE (20, E) --(40, 
E) , 15,B:NEXT E 

360 L I NE ( 40 , 20 ) - ( 60 , 1 20 ) , 1 5 , B : FOR E 
=20 Tü 120 STEP 20:LINEC40,E> -(60,E 
> , 15:NEXT E 

370 LINE (60, 10) -(80, 130) , 15, B: FÜR E 
=10 TD 130 STEP 20: LINE (60, E)- (80, E 
) ,15:NEXT E 

380 L I NE ( 80 , ) - ( 1 00 i 1 40 ) , 1 5, B: FDR E 

=0 TO 140 STEP 20sLINE(80,E)~(100,E 
) , 15 : NEXT E 

390 L I NE ( 1 00 , 1 ) - ( 1 20 , 1 30 ) , 1 5 , B : FÜR 
E=10 TO 140 STEP 20:LINE(100,E) -(1 
20, E) , 15: NEXT E 

400 LINE ( 120, 20) - ( 140, 120) , 15, B: FOR 
E=20 TO 120 STEP 20: LINE ( 120, E) ~ ( 1 
40, E) , 15: NEXT E 

410 LINE < 140, 30) - (160, 110) , 15, B: FOR 
E=30 TO 110 STEP 20:LINE(140,E)~(1 
60, E) , 15: NEXT E 
420 GOTO 470 

430 Y=40:Y1=100:FOR X=30 TO 150 STE 
P 20: IF X>90 THEN Y=Y+10: Y1=Y1-10 : 
LINE(X, Y)-(X, Yl) ,8 ELSE Y=Y-10:Y1=Y 
1+10: LINE (X, Y) - (X, Yl ), 8 
440 NEXT X 

450 X=?0: X1=90:FOR Y=10 TO 140 STEP 
10: IF Y>100 THEN X=X+20 :Xl=Xl-20: 
LINE ( X , Y ) - ( X 1 , Y ) ,8 ELSE IF Y=50 TH 
EN X=X+10: X1=X1~10 :LINE(X,Y) - (XI, Y 
),8 ELSE IF Y>=50 THEN L I NE < X , Y ) ~ '< X 

1, Y),S ELSE X=X-20: Xl=Xl+20 :LINE(X 
, Y)~(X1,Y) ,8 

460 NEXT Y : RETURN 

470 L I NE ( 1 , 40 > - (19, 40 ) , 1 : L I NE ( 1 6 1 , 
40) - ( 170, 40) , 1 

471 LINE (0,45) -(20, 65) ,2,BF 
480 L I NE ( , 75 ) ~ ( 20 , 95 ) , 1 1 , BF 

490 L I NE ( 1 60 , 45 ) - ( 1 80 , 65 ) , 1 1 , BF : L I N 
E ( 160, 75) - ( 180, 95) , 2, BF 
500 CIRCLE(15,55) ,3, 1 : CIRCLE (15, 85) 
, 3 , 1 : PA I NT < 1 5 , 55 ) , 1 : P A I NT < 1 5 , 85 > , 1 : 
CIRCLE ( 165, 55) ,3, 1 : PAINT ( 165, 55) , 1: 
CIRCLE (165, 85) ,3, 1 : PA I NT ( 1 65 , 85 ) , 1 
510 L I NE ( 40 , 40 ) - ( 60 , 60 ) , 1 5 , BF : L I NE ( 
40 , 80 ) ~ ( 60 , 1 00 ) , 1 5 , BF : L I NE ( 80 , 60 ) - ( 
1 00 , 80 ) , 1 5 , BF : L I NE ( 1 20 , 40 ) ~ < 1 40 , 60 ) 
, 1 5 , BF : L I NE ( 1 20 , 80 ) ~ ( 1 40 , 1 00 ) , 1 5 , BF 
520 FOR W=40 TO 100 STEP 20: CIRCLE ( 
30, W) ,4, 7: PAINT (32, W+2) ,7: NEXT W:FO 
R W=30 TO 110 STEP 40: CIRCLE (50, W) , 
4, 7: PAINT (52, W+2) ,7: NEXT W:FOR W=20 
Tü 120 STEP 20: CIRCLE (70, W) ,4,7: PA 
INT(72, W+2) ,7: NEXT W:FOR W=10 TO 50 
STEP 20: CIRCLE (90, W) , 4, 7: PAINT (9 

2, W+2) ,7 
530 NEXT W 

540 FOR W=90 TO 130 STEP 20: CIRCLE ( 
90, W) ,4, 7: PAINT (90, W) ,7: NEXT W:FOR 



W=20 TO 120 STEP 20 : CIRCLE ( 1 10, W) , 
4, 7: PAINT (1 10, W) ,7: NEXT W:FÜR W=30 
TO 110 STEP 40 : CIRCLE ( 130, W) ,4,7: P 
AINT ( 130, W) , 7: NEXT W 

550 FOR W=40 TO 100 STEP 20: CIRCLE ( 
150, W) , 4, 7: PAINT ( 150, W) ,7: NEXT W 
560 COLOR 1 :PSET (28,37) , 1:PRINT#1, " 
1 1 1 1" 

570 PSET (88, 7) , 1 : PRINT#1 , "2" 
580 PSET (68, 17) , 1 :PRINT#1 , "5 5" 
590 PSET (48, 27) , 1:PRINT#1, "3 3 
3" 

600 PSET (28, 57) , 1 : PRINTttl , "4 4 
4 4" 

610 PSET (88, 47) , 1:PRINT#1, "1" 
620 PSET (48, 67) , 1:PRINT#1, "6 
6" 

630 PSET (28, 77) , 1:PRINT#1, "3 3 

640 PSET ( 88 , 87 ) , 1 : PR I NT# 1 , " 6 " 
650 PSET (23,97) , 1:PRINT#1, "2 2 
2 2" 

660 PSET (48, 107) , 1:PRINT#1, "5 5 
5" 

670 PSET (68, 1 17) , 1 : PRINT#1 , " 1 1 " 

680 PSET (88, 127) , 1:PRINT#1, "4" 

690 PSET (173,53), : PR I NT# 1 , " 2 " : PSET 

(173,82), 0:PRINT#1, "1" 

700 COLOR 15: PSET < 200, 35 ) , 1 : PR INT# 

1 , " T I ME . " : PSET ( 200 , 95 ) , 1 : PR I NT# 1 , " 3 
! 00" 

710 LINE ( 197, 93) - (240, 103) , 15, B 
720 PUT SPRITE 7 , ( 82 , 62 ) , 1 , 7 
730 PUT SPRITE 8, (82, 62) , 15, 8 
740 PUT SPR I TE 9 , ( Z , M ) ,2,9 
750 PUT SPR I TE 10, (Z1,M1) , 11,9 
760 " ######tt#tt############## 
770 BUCLE GENERAL 
780 7 ####################### 

790 X=0: Y=0:E=0:CT=1: S*="C15R6U8R3H 
6G6R3D8" 

800 CO=0: CT=CT+1 : A=CT/2: IF FIX(A)=A 

BS(A) THEN PA=1 ELSE PA=2 

810 IF FF=1 AND FI=1 THEN PA=2 ELSE 

IF FF=1 AND FI = 2 THEN PA=1 
820 L I NE ( 1 85 , ) - ( 250 , 45 ) , 1 , BF : COLOR 

15: PSET (190, 10) , 1 
830 PRINTtti, "Jug. " ; PA 

840 LINE (190, 34) -(234, 45) , 1,BF:PSE 
T (190,25) , 1:PRINT#1, " D í ÑERO ": PSET 
(190,35) , 1: IF PA=1 THEN PRINT#1,DI 
ELSE PRINT#1,DD 
850 GOSUB 1080 

860 W$=INKEY*:IF W*="" THEN 860 
870 LINE (185, 45) -(255,80) , 1,BF:BEE 
P 

880 IF W*=CHR*(30) THEN DRAW"BM220, 

64A0":DRAW S* : K*= " A " : GOSUB 930 

890 IF W*=CHR*(29) THEN DRAW"BM220, 

64A 1 " : DRAW S* : K$= " I ": GOSUB 930 

900 IF W*=CHR*(31) THEN DRAW"BM226, 
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62A2 " : DRAW S* : K*= " B " : GOSUB 930 
910 IF W*=CHR*<28> THEN DRAW" BM220 , 
58A3":DRAW S* : K*= " D " : GÜSUB 930 
920 GOTO 860 
930 CO=CO+l 

940 IF K$="A" AND PA=1 THEN M=M-10 

ELSE IF K*="A" THEN MI =M 1-10 

950 IF K*="I" AND PA=1 THEN Z=Z-10 

ELSE IF K*=" I" THEN Z1=Z1-10 

960 IF K*="B" AND PA=1 THEN M=M+10 

ELSE IF K*="B" THEN M1=M1+10 

970 IF K*="D" AND PA=1 THEN Z=Z+10 

ELSE IF K$="D" THEN Z1=Z1+10 



«10 ir nlO»CP». I. Iir«- 0« niDHP», |.i ÍCkIj-í*) IF C(OSCfnlD»(P«.i.l))-84)<>0rHEN «5 



1270 GÜTÜ 1230 

1280 N3=INT (RND (-TIME) *7> : IF N3=W3 
THEN 1280 ELSE W3=N3:0N N3 GOTO 150 
0,1510, 1520, 1530, 1540, 1550, 1560 
1290 GOTÜ 1230 

1300 N4=INT < RND (-TIME) *5> : IF N4=W4 
THEN 1300 ELSE W4=N4:ÜN N4 GOTO 158 
0, 1590, 1600, 1610, 1620 
1310 GOTO 1230 

1320 N5=INT (RND (-TIME) *5) : IF N5=W5 
THEN 1320 ELSE W5=N5:0N N5 GOTO 164 
0, 1650, 1660, 1670, 1680 
1330 GOTO 1230 

1340 N6=INT (RND (-TIME) #3) : IF N6=W6 

THEN 1340 ELSE W6=N6 :ON N6 GOTO 170 

0, 1710, 1720 

1350 GOTO 1230 

1360 X=22: Y=32: GOTO 1730 

1370 X-62: Y=32: GOTO 1730 

1380 X=102s Y=32: GOTO 1730 

1390 X=142: Y=32:G0T0 1730 * 

1400 X=82: Y=42:G0T0 1730 

1410 X=62: Y=112:G0T0 1730 

1420 X=102: Y=112:G0T0 1730 

1430 ' 

1440 X=82: Y=2: GOTO 1730 
1450 X=22: Y=92: GOTO 1730 
1460 X=62: Y=92:G0T0 1730 
1470 X=102: Y=92:GQT0 1730 
1480 X=142: Y=92:G0T0 1730 
1490 ' 

1500 X=42: Y=22: GOTO 1730 
1510 X=82: Y=22:G0T0 1730 
1520 X=122: Y=22:G0T0 1730 
1530 X=22: Y=72:G0T0 1730 
1540 X=62: Y=72: GOTO 1730 
1550 X=102: Y=72:G0TQ 1730 
1560 X=142: Y=72: GOTO 1730 
1570 ' 

1580 X=22: Y=52:G0T0 1730 
1590 X=62¡ Y=52:G0T0 1730 
1600 X=102: Y=52: GOTO 1730 
1610 X=142: Y=52:G0T0 1730 
1620 X=82: Y=122s GOTO 1730 
1630 ¡| 

1640 X=62: Y=12: GOTO 1730 
1650 X=102: Y=12:G0T0 1730 
1660 X=42: Y=102: GOTO 1730 
1670 X=82:Y= 102: GOTO 1730 
1680 X=122:Y= 102: GOTO 1730 
1690 * 

1700 X=82: Y=82:G0T0 1730 

1710 X=42: Y=62:G0T0 1730 

1720 X=122: Y=62:G0T0 1730 

1730 PUT SPRITE 7, (X, Y), 1,7 

1740 PUT SPRITE 8, (X, Y) , 15, 6 

1750 IF Z>X-2 AND Z<X+18 AND M>Y-2 

AND M<Y+18 THEN PUT SPRITE 9,(164,8 



980 IF PA=1 THEN PUT SPRITE 9, (Z,M) 
,2,9 

990 IF PA=2 THEN PUT SPRITE 10, (Zl, 
MI) , 11,9 

1000 IF Z=14 AND M=53 THEN GOSUB 20 
10 

1010 IF Zl=14 AND MI =33 THEN GOSUB 
2010 

1020 IF CO=>N+l AND PA=1 AND FFOl 
AND GHOl THEN GOSUB 1780: GOTO 800 
1030 IF COON+1 AND PA=2 OR FF=1 AN 
D CO=>N+l OR GH-=1 AND CO=>N+l THEN 
GOSUB 1780: LINE ( 1 90 , 1 ) - ( 250 , 45 ) , 1 
,BF: COLOR 15.-PSET ( 1 85 , 1 ) , 1 : PR I NT# 
1 , " An t i " : PSET ( 205 , 22 ) , 1 : PR I NT# 1 , " Ch 
ollo":GOSUB 1050:GO3UB 1200 : GOTO 8 
00 

1040 RETURN 

1 050 ? *#* **##***#*### %%%%%%%% 

1060 9 SUBRUTINA DEL DADO 

1 070 7 K********************** 

1080 S=0:D=1 
1090 A=50 

1100 FOR 1=0 Tü 16 

1110 N=INT (RND (-TIME) *6) 

1120 A*="L16T250N"+3TR*(A) s A=A~1 

1130 PLAY A* 

1140 PUT SPRITE 0, (205, 125) ,8 H N 
1150 PUT SPRITE 1 , (205, 125) , 15,6 
1160 IF BN=1 THEN ' BN=0: RETURN 
11^0 FOR J=0 TO 36:NEXT 
1180 NEXT 
1190 RETURN 
1200 ' 

1210 a SUBRUTINA DEL ANTI CHOLLO 
1 220 * ************¡K**^**)K*;)i(!((****# 
1230 ON N+l GOTO 1240,1260,1280,130 
0, 1320, 1340 

1240 N 1 = I NT ( RND ( ~-T I ME ) #7 ) : I F N1=W1' 
THEN 1240 ELSE Wl=Nl:ON NI GOTO 136 
0, 1370, 1380, 1390, 1400, 1410, 1420 
1250 GOTO 1230 

1260 N2=INT (RND (-TIME) #5) : IF N2=W2 
THEN 1260 ELSE W2=N2:0N N2 GOTO 144 
0, 1450, 1460, 1470, 1480 
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3) , 2,9: HY=1: GOSUB 2010 

1760 IF Zl>X-2 AND ZKX+1B AND M1>Y 

-2 AND M<Y+13 THEN PUT SPRITE 10,(1 

64,53) , 11,9:HY=2:G0SUB 2010 

1770 FOR 1=1 Tü 1000: NEXT I : RETURN 

1780 **************************** 

1790 ? SUBRUTINA DE PREGUNTAS 

1800 ' *************************** 

1810 E=INT (RND (-TIME) *31 ) 

1820 IF DS=>31 THEN FÜR 1=1 Tü 31 8 T 

(I)=0:NEXT I:DS=0 

1830 IF E=T(E) THEN D5=DS+1:G0T0 13 
10 ELSE T(E)=E 

1840 PSET (0, 150) , 1 : FOR C=l Tü LEN ( J 
*<E) )+l 

1850 FOR A=l TO 5: FOR BV.= 1 Tü 1 : NEX 
T B7.:NEXT A 

1860 IF MID*(J*(E) ,C, l)^" " THEN PR 
INT#1 , CHR$ (13) : NEXT C 

1870 IF MID$(J*(E) ,C, 1)="\"THEN PRI 
NTttl , " " ; : NEXT C 

1880 COLOR 15: PRINTttl, MID$(J*(E),C 
, 1) ; : NEXT C: T1=0 

1890 IF H*(E)="CHO" THEN BN=1:N=5:C 
0=0: GOSUB 1140 : FOR 1=1 TO 500: NEXT 
I 3 UNE (0, 150) -(255, 191) , l,BF:GOTO 
860 

1 900 J I $= I NKEY$ : PSET ( 200 , 95 ) , 1 : PR I N 
Ttt 1 , US I NG " ## ! tt# " ; T ; T 1 : T 1 =T 1 - 1 : L I NE 
(220,94) -(239, 102) , 1., BF: IF T 1 < TH 
EN T1=60:T=T-1:LIME (200, 94) - (215, 1 
02) , 1 , BF 

1910 IF T<0 THEN 1970 

1920 IF JI*="" THEN 1900 

1930 IF H*(E)="PRU" AND T>0 AND STR 

IG(0)=-1 THEN 1960 

1940 IF H*(E)="PRE" AND JI*=K*(E) T 
HEN 1960ELSE IF J I *<> " A " ANDJ I *<> " B " 
ANDJ I fe > " C " ANDJ I *< > " D " THEN 1 900 
1950 GOTO 1970 

1960 LINE(0, 150) -(255, 191) , 1,BF:PSE 

T (50, 160) , 1 ¡PRINTttl, "C O R r'e C T 

O": F : 'LAY"CDEFGAB" : FOR T=l TO 1600: N 

■EXT T:IF PA=1 THEN DI=D 1+1000: GOTO 

1980 ELSE DD=DD+ 1000: GOTO 1980 

1970 LINE(0, 150) -(255, 191) , 1,BF:PSE 

T (50, 160) , 1 : PRINTttl , " I N C O R R E 

C T O " : PLAY"02BAGFEDC" : FOR T=l TO 

l 600 s NEXT T:IF PA=1 THEN DI=DI-1000 

: FL=FLh- 1ELSE DD=DD~1000: FA=FA+ 1 

1980 IF FL=3 OR FA=3 THEN GOSUB 201 

ELSE LINE(0, 150)-<255, 191) , 1,BF:L 

INE(19B,94)-(239, 102) , 1,BF:T=30 

1 990 PSET ( 200 , 95 ) , 1 : PR I NT# 1 , " 30 ! 00 
■ i 

2000 RETURN 

2010 ' ********************** 

2020 * SUBRUTINA FINAL 

2030 ****** **************** 

2040 IF FL=3 THEN PUT SPRITE 9,(164 

, 83) ,2,9:FI = 1:FL=0:GOTO 2090 ELSE I 



F FA=3 THEN PUT SPRITE 10,(164,53), 

11,9:FI=2:FA=0:GOTO 2090 

2050 IF Z=14ANDM=53THENFI=1 : GOTO 21 

1 0ELSE I FZ 1 = 1 4ANDM 1 =83THENF 1=2: GOTO 

2110 

2060 IF HY=1 THEN F I ■ 1 : HY=0 : GOTO 22 
40 

2070 IF HY=2 THEN F I =2: HY=0 : GOTO 22 
40 

2030 RETURN 

2090 IF FF=1 THEN 2210 ELSE LINE (0 
, 150) -(255, 191) , 1,BF:PSET (20, 150) , 
1 :PRINT#1 , "El jugador no " ; FI ; "a per 
dido por cometer tres fallos 

.":PRINT#1," El otro continua el j 
uego. " 

2100 FOR 1=1 TO 1500: NEXTI: LINE (0, 1 
50) -(255, 191) , 1,BF:FF=FF+1:T=30:RET 
URN 

2110 PLAY "01 L64CDEFGAB02CDEFGAB " , "O 

3L64CDEFGAB04CDEFGAB" , " 05L64CDEFGAB 

06CDEFGAB" 

2120 GOSUB 30000 

2130 PSET (10,20) , l:PRINTttl, " HA GA 
NADO EL JUGADOR N£";PA 

2140 PSET(10,40) , 1:PRINT#1, " CON UN 
TOTAL DE" ;:IF PA=1 THEN PRINT#1, D 

I;"Ptas " ELSE PRINTttl, DD; "Ptas" 

2150 PSET ( 10, 60) , 1 : PRINT#1 , "MAS UN 
BGNUS DE 10000 Ptas. " 

2160 PSET( 10, 180) , 1: PRINTttl, "¿QUIE 

RE VOLVER A JUGAR (s/n)?" 

2170 A*=INKEY*: IF A$="" THEN 2170 

2180 IF A$="S" THEN RETURN 300 

2190 IF A*="N" THEN NEW 

2195 IF A*=CHR*(8) THEN END 

2200 GOTO 2170 

2210 GOSUB 30000 

2220 PSET (10, 20 ) , 1 : PR I NTtt 1 , " HAS P 
ERDIDO POR HABER FALLADO TRE 
9 VECES . " 
2230 GOTO 2160 

2240 PLAY"T200O4L8GR8L8GR8L8GR8L1E U 
, " T200O3L8GR8L8GR8L8GR8L 1 E " , "T200O2 
L8GR8L8GR8L8GR8L 1 E " 

2250 IF FF=1 THEN 2270 ELSE LINE(0, 
150) -(255, 191) , 1,BF:PSET(20, 155) , 1: 
PRINTttl, "El jugador n2" ; FI ; "deja de 

jugar": PSET (20, 166) , 1: PRINTttl, "Se 

lo comió el ANTICHOLLO. " 
2260 F0RI=1 TO 1300:NEXT I:LINE(0,1 
50) -(255, 191) , 1,BF:FF=FF+1:T=30:RET 
URN 

2270 GOSUB 30000 

2275 PSET (10, 20) , 1: PRINTttl, "HAS PER 

DIDO POR QUE TE HA COMIDO EL AN 

TI CHOLLO": GOTO 2160 

2280 ? ********************* 

2290 ' DATOS- PREGUNTAS 

2300 ? ********************* 

2310 DATA 0,0,0,0,0,1,3,3,1,0 

= 



Programa 




at nio*rp«. 1. 1 jATVlfliM if ctoscn-ii 



2320 DATA 80 , c ,c0, 80 ,0,30,78 
2330 DATA 78, 30, 0, c , le, le, c , 
2340 DATA , 1 , ,0,2, ,3,0, , ,0,4 
2350 DATA 3,1,0,0,2,4,3,0,3,4,0,4 
2360 DATA 3,1,3,4,2,4,3,3,3,4,4,4 
2370 DATA PRE,¿CUAL ES EL Log „ DE"1 
"?'A! NO HAY VB! ES " 1 " * C ! ES "0"\D 
¡ ES INFINITO, C 

2380 DATA PRU, PRUEBA' REALIZAR 10 FL 
EXIONES,0 

2390 DATA PRE, ¿FECHA DESCUBRIMIENTO 
AMERICA?' A ! MARZO 1 872\B ! OCTUBRE 1 

750' C¡ OCTUBRE 1492XD! JUNIO 1567, C 

2400 DATA PRU, PRUEBA ' HACER UN AVION 
DE PAPEL, 

2410 DATA PRU, PRUEBA ' ESCRIBIR SU NO 

MBRE DE Dere/Iiqu. ,0 

2420 DATA PRE, ¿QUIEN GANO LA LIGA 7 
3-74?' A ¡ ANDORRAXB! R. MADRID' C! BAR 
QAXD! AT. BILBAO, C 

430 DATA PRU, PRUEBA' REALIZAR 10 AB 
DOMINALES, 0Ok 

2440 DATA PRE , ¿ESCR I TOR "EL MECANOS 
CRIT'DEL SEGON ORIGEN?\A¡ CERVANTES 
'B! M.PEDROLO\C¡ JOSE de LARRA, B 
2450 DATA PRU , PRUEBA ' CANTAR UNA CAN 
CION ,0 

2460 DATA PRE, ¿OLIMPIADAS DEL 72?' A 
' LOS ANGELESXB! BERLIN' C ¡ MUNICHXD ! P 
ARIS, C 

2470 DATA PRU, PRUEBA' COMER UN POLVO 
RON Y DECIR 333,0 

2480 DATA PRU, PRUEBA' REALI ZAR 9 NUD 
03 MARINEROS, 

2490 DATA PRE, ¿QUE PELICULA ESPAÑOL 
A LOGRO UN' OSCAR? A! ASIGNATURA PEN 
DIENTE' B! CARMEN \C ! VOLVER A EMPEZA 
R,C 

2500 DATA PRU, PRUEBA' ATAR AL CONTRA 
RIO ,0 

2510 DATA PRU, PRUEBA' HACER UNA LOCU 
CION DE UN' PARTIDO FUTBOL, 
2520 DATA PRU, PRUEBA' ESCRIBIR UN VE 
RSO , 

2530 data pre , ¿d i secador "sagrada f 
amilia"?'a! dalixb! gaudi'c! sofia 
lorenxd: Picasso, b 

2540 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2550 DATA PRE, ¿COMO SE LLAMA EL VOL 
CAN DE 'COLOMBIA?\A ! TEIDEXB! RODOL 
FO'C! TITICACAXD! NEVADO DEL RUIZ 

560 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2570 DATA. PRE, ¿QUE FUE EINSTEIN?'A¡ 
POLITICOXB! BIOLOGO' C! FISICOXD! F 
UTBOL I5TA , C 



2580 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2590 DATA PRE, ¿LA PRIMERA NAVE QUE 
PISO' LA LUNA?\A! COLUMBIA'B! APOLO 
XC! T I TAN I C , B 

2600 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2610 DATA PRE, ¿NOMBRE DE LA HIJA DE 
JULIO ' IGLESIAS?\A¡ ESTEFANIA' B ! C 
HABEL I \ C ! CARMEN, B 

2620 DATA CHO, CHOLLO AVANZA ó CASIL 
LAS, 5 

2630 DATA PRE, ¿PAIS DONDE DICTA PIN 
OCHET?'A! ARGENTINAXB! BRASIL' C! UR 
UGUAYXD ! CHILE, D 

2640 DATA PRU , PRUEBA ' CONTAR DE 30 
A SOLO LOS PARES, 

2650 DATA PRU , PRUEBA ' HACER UN BARCO 

DE PAPEL, 
2660 DATA PRE, ¿ESTADIO LA FINAL EUR 
OPEA 85?' A! HEYSELXB! JOAN G AMPER' C 
! AZTECAXD! BERNABEU,A 
2670 DATA 0,1,3,3,3,15,7,13,31,63,6 
2,61,27, 15,7,3,0,224, 192, 128, 128,22 
4, 192, 160,224,240, 120, 184,208,240,2 
24, 192 

2680 DATA 255,254,252,252,252,240,2 
48,242,224, 192, 193, 194,228,240,248, 
252,255,31,63, 1 27 , 1 27 , 3 1 , 63 , 95 , 3 1 , 1 
5, 135,71,47, 15,31,63 

2690 DATA 224 , 224 , 224 , , , , ,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
, , , , 

2700 ' ************************** 

2710 ' PRESENTACION 

2720 ' ************************** 

2723 WE*="L6403GDEAD04DFECDFAGA05DE 

AGDEFADEFDEFDEADEFDEADEFAFFADEADCCF 

2725 PLAY WE*:FOR 1=6 TO 15 

2730 COLOR IrPSET (40, 40) , 1 : PRINTttl 

, "EL PAIS DEL ANT I CHOLLO " : NEXT : CO 

LOR 14: PSET ( 1 10, 90) , 1 : PRINTttl , "Pü 

R " : PSET < 90 , 1 20 ) , 1 : PR I NTtt 1 , "M. MOURE 

LO" 

2737 PLAY " 05FDECDADFAEFACDDFDA " 

2738 PLAY " 05FDECDADFEEFACDDFDA " 
2740 FOR I=~15 TO 255STEP 3:PUT SPR 
ITE 1 1 , ( I , 170) , 7, 7: IF 1=42 OR 1=84 
□R 1=126 OR 1=168 OR 1=210 OR 1=252 

THEN PSET (1-40, 172) , 1 : COLOR 8:PRIN 
T#l , "Come" 

2750 NEXT: CLS: COLOR 15,1,1 

2760 PSET (70, 10) , 1: PRINTttl, "INSTRUC 

CIONES" 

2770 PRINTttl , " 

W " 

2730 PSET (30, 40) , 1; PRINTttl, "La fich 
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a la puedes mover " : PRINTttl , : PRINTttl 
, " con las teclas del cursor ":PRI 
NT#1 , :PRINT#1 , " Para responder la 
S preguntas" : PRINTttl „ : PRINTttl , " T 
i enes que pulsar la letra" : PRINTttl 
,: PRINTttl," correcta y para las p 
ruebas" 

2785 PRINTttl, : PRINTttl, " pulsar la 
barra. ": PRINTttl, : PRINTttl, " Si te 
come o cometes tres" : PRINTttl ,: PRIN 

Tttl," errores pierdes" 

2787 PRINTttl, : PRINTttl, " 

w 



¡790 RETURN 



10000 GÜSUB 30000 
10010 PSETí 15, 170) 
re jugar otra vez 



, 1 : PRINTttl , 

(S/N) ?" 



,Qui e 







10020 A$=INKEY$: IF A*="" THEN 100 
10030 IF A*="S" THEN RETURN 300 
10040 IF A$="N" THEN NEW 
10050 IF A$=CHR*<8> THEN END 
10060 GÜTO 10020 

30000 PUTSPR I TE0 , ( 205 , 1 25 ) , , N : PUTS 
PRITE1 , (205, 125) , 0,6: PUTSPR ITE7, (X, 
Y) ,0,7:PUTSPRITE8, (X, Y) ,0,8:PUTSPRI 
TE9, (Z,M) ,0,9: PUTSPR I TE 1 , (Z1,M1) ,0 
, 9: CLS: RETURN 



Test de listado 



iPaís del cholloi 



i - 



10 - 

20 - 
50 - 
40 - 

5! 

60 - 

70 - 

80 - 

90 - 

100 - 

1 10 - 

120 - 

130 - 

140 - 

150 -■ 

160 - 

170 - 

180 - 

190 - 

200 - 

210 - 

220 - 

230 - 

240 - 

250 - 

260 - 

270 - 

280 r 

300 - 

310 - 

320 - 

330 - 

340 - 

350 - 

360 - 

370 - 

380 - 

390 - 

400 - 




58 
58 
58 
58 
58 
58 
143 
151 
49 
212 
26 
39 
167 
150 
170 
216 
211 
64 
66 
192 
89 
170 
153 
131 
210 
246 
•204 
189 
201 
238 
220 
155 

■ 58 
• 58 

58 
•255 
•211 

60 

30 
110 
194 

24 

■ 94 




410 
420 
430 
440 
450 
460 
470 
471 
480 
490 
500 
510 
520 

530 
540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 




-174 
-110 
-187 
-219 
-116 
-164 
-108 

- 78 
-145 
-149 

- 74 

- 81 
-166 

-218 

- 

- 8 

- 25 
-158 
-202 
-239 

- 48 
-195 
-234 

- 64 
-240 

- 80 

- 69 

- 38 

c ■r 

-146 

- 69 

- B 
-107 
-121 
- 1 05 
-209 

- 58 

- 58 

- 58 

- 95 
-203 
-241 

- 93 
86 



840 - 
850 - 
860 - 
870 - 
880 - 
890 • 
900 • 
910 
920 • 
930 
940 
950 
960 
970 
980 
990 

1000 

1010 
1020 
1030 
1040 
1 050 
1 060 
1070 
1 080 
1 090 
1 100 
1110 • 

1120 

1 130 

1140 

1150 

1160 

1170 

1180 

1 190 

1200 

1210 

1 220 

1230 

1240 

1 250 

1260 

1270 




■ 88 
■215 

■ 16 
-248 

- 20 

- 28 
t 28 

- 27 
-246 

-125 
-193 
-125 
-181 

- 96 
-201 
- 1 89 

- 61 
-253 

- 46 
-142 

- 58 

- 58 

- 58 
-210 
-113 
-195 
-177 

- 72 

- 38 

- 91 

- 42 

- 78 
-149 
-131 
-142 

- 58 

- 58 

- 58 
-189 
-153 
-105 
-181 
-105 



1280 
1 290 
1300 
1310 
1320 
1 330 
1340 
1 350 
1360 
1370 
1380 
1390 
1 400 
1410 
1420 
.1 430 
1 440 
1 450 
1 460 
1470 
1480 
1490 
1500 
1510 
1 520 
1 530 
1540 
1550 
1 560 
1570 
1 580 
1590 
1 600 
1610 
1 620 
1 630 
1640 
1 650 
1 660 
1670 
1680 
1690 

1700 





-140 
-105 
-171 
-105 
-241 
-105 

- 39 
-105 
-150 
-190 
-230 

- 14 
-252 

- 46 

- 86 

- 58 
-214 
-242 

- 26 

- 66 
-106 

- 58 
-192 
-232 

- 16 
-222 

- 6 

- 46 

- 86 

- 58 
-202 
-242 

- 26 

- 66 

- 76 

- 58 

-202 
— 24' ? 

- 16 

- 56 

- 96 

- 58 

- 36 



1710 
1 720 
1730 

.1740 
1 750 
1760 
1770 
1780 
1790 
1 800 
1810 
1 820 
1 830 
1840 
1 850 
1860 
1870 
1 880 
1 890 
1 900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1 980 
1 990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 

^130 



^550 


- 56 


j__ . _ j «_ j . _ 




\j i y.' 


— A 3 


2580 


-239 


*_ \— 1 / iJ 


- 1 69 


?A00 

£m W YJ YJ 


ji-'j r 


261 


-17? 


X- O jLm YJ 


jLm -—' 7 




- 49 


2640 


- 1 79 




- 81 


?AA0 


- 1 9 


x- o / y.' 


JÍ—YJf 


¿— O O V-' 


— 1 9 1 


2690 


- 16 


2700 


- 58 


2710 


- 58 


2720 


- 58 




x — / 


2725 


-131 


2730 


-159 


2737 


- 77 


2738 


- 81 


2740 


-222 


2750 


-237 


2760 


- 68 


2770 


— 222 


2780 


-244 


2785 


-120 


2787 


- 10 


2790 


-142 


10000 


- 64 


10010 


- 91 


10020 


-208 


10030 




10040 


—223 


10050 


- 57 


10060 


-226 


30000 


- 62 



186 









TOTAL: 

36730 







MSX comunicación! 



RS-232. EL 
TELEFONO DEL 
ORDENADOR 







Por Juan Ortega"" 



Este es uno de los periféricos 
más interesantes con que 
puede contar cualquier orde- 
nador, ya que su misión es la 
transferencia y recepción de 
datos. 




HC>. 




< > 




F"' > 13 DPC-200 





Todos podemos imaginar que 
cualquier ordenador en su traba- 
jo interno está perfectamente 
organizado y sabe cómo transferir da- 
tos e instrucciones entre las diferentes 
partes del mismo (memoria, CPU, uni- 
dades de entrada/salida, etc.), pues de 
los contrario debemos pensar que no 
funcionaría demasiado correctamente; 
por otra parte a la mayoría de usuarios 
no le preocupa saber con demasiada 
exactitud cómo lo hace, sino que sim- 
plemente se conforma con que el orde- 
nador se organice adecuadamente. 
Pero ese mismo usuario típico que se 
desentiende de la organización interna 
! del ordenador, puede desear en un mo- 
mento dado, comunicar con otro orde- 
nador de igual o diferente marca y mo- 
delo ;a si partimos de que hay y habrán 
muchos ordenadores diferentes, llega- 
remos a la conclusión de que necesita- 
mos definir y diseñar «algo» que abra 
una vía de comunicación que todos los 
ordenadores entiendan. 
Todos los ordenadores disponen de ca- 
nales de comunicación con periféricos, 
siendo entre otros: 

Interfaz de impresora paralelo CEN- 
TRONICS. 

Interfaz de Unidad de Disco. 
Interfaz de Cassette. 
Interfaz de monitor y/o televisor. 
Interfaz serie de comunicaciones (di- 
versos tipos), etc. 

Vamos a intentar estudiar en este y su- 
cesivos artículos el interfaz serie cono- 
cido como RS-232 (¡quien no ha oído 
hablar de él alguna vez!). Para ello co- 
menzaremos diferenciando el concepto 
serie y paralelo. 

Los datos e instrucciones sabemos que 
están compuestos por bits (8, 16 o 32 
según el microprocesador utilizado) y 
los mismos pueden viajar en serie o en 
paralelo. 

PARALELO: Las transferencias se ha- 
cen de 8 en 8 bits (o 16 o 32). 
SERIE: Las transferencias se hacen bit 
a bit. (Véase Figura 1) 
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En el interior de un ordenador las co- 
municaciones (entre CPU y memoria 
por ejemplo) suelen efectuarse en para- 
lelo, lo cual da mayor velocidad pero 
sólo es práctico para transferencias a 
distancias cortas. Para comunicaciones 
a distancia superiores a 1 o 2 metros se 
recurre a un «interfaz serie», el cual nos 
da una menor velocidad, pero nos sim- 
plifica las cosas a la hora de transferir 
datos y /o instrucciones a cierta distan- 
cia. 

Si una interfaz serie se diseña para co- 
municaciones de un ordenador con el 
mundo exterior, lo lógico sería pensar 



cuentra el INTERFAZ RS-232. 

EL INTERFAZ SERIE 
RS-232 - COMO SURGE 

Este interfaz se desarrolló en su día pa- 
ra normalizar la conexión de un Orde- 
nador a un Modem telefónico (ya vere- 
mos en próximos artículos qué es eso 
de modem) y de un Terminal de entra- 
da de datos a un Ordenador grande. 
Posteriormente al surgir pequeños 
ordenadores domésticos, se intentó 
utilizar el standard RS-232 para comu- 
nicar los mismos con una gran variedad 



particulares; y aquí es donde surgen a 
veces dificultades que nos pueden lle- 
var a la desesperación, y a pensar que el 
standard no es tal. 

No nos desanimemos, pues nada mejor 
que conocer algunos detalles del mis- 
mo, para poder entender posibles pro- 
blemas y sus soluciones, a la hora de 
conectar dos dispositivos mediante el 
RS-232. 



EL MODELO RS-232C 

Ya hemos dicho con qué finalidad se 
define el Interfaz serie RS-232C, que 




DISPOSITIVO 
1 



PARALELO 



DISPOSITIVO 
2 



DISPOSITIVO 
1 


oprimo omm 


DISPOSITIVO 
2 




SERIE 



FIGURA 1 

en un diseño de algo normalizado, para 
que independientemente del fabricante 
de. los dispositivos, éstos sean interco- 
nectables sin necesidad de acoplamien- 
tos particulares. En este caso se en- 




de periféricos, e incluso entre ellos mis- 
mos; de aquí y dado que no todos los 
dispositivos se adaptan perfectamente a 
las reglas definidas en el interfaz, hubo 
que adaptar dichas reglas para casos 



queda claro de la lectura de su defini- 
ción: 

Conexión entre un Equipo Termi- 
nal de Datos y un Equipo de Comu- 
nicaciones de Datos, mediante un 
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intercambio en serie. 
En la definición se habla de dos dispo- 
sitivos, lo cual es importante que quede 
claro, pues se van a utilizar mucho: 
Equipo Terminal de Datos, en inglés 
Data Terminal Equipment o DTE. 
Además de la definición anterior, hay 
que definir varios otros parámetros, a 
saber: 

Características eléctricas: Aquí se defi- 
nen los niveles de voltaje de las señales 
de la conexión. El Standard define emi- 
sores y receptores no balanceados de 
nivele entre +/ — 3 V a +/ — 25 V. 
Características mecánicas: Aquí se des- 
cribe el formato mecánico del conector 
a utilizar. El Standard establece el co- 
nector conocido como DB-25 que po- 
demos ver en la figura 2. 

Definición funcional de las señales: 
Aquí se definen las funciones a efectuar 
por cada uno de los pines de la cone- 
xión, los cuales son: 

Tierra de protección. 
Retorno común. 
Dato transmitido. 
Dato recibido. 
Petición de emisión. 
Preparado para emisión. 
Preparado el equipo de comunicacio- 
nes. 

Terminal de datos preparado. 
Detector de señal de línea recibida. 
Detector de calidad de señal. 
Selector de velocidad en el terminal. 
Selector de velocidad en el equipo de 
comunicaciones. 

Elemento de sincronismo de señal en el 
terminal. 

Elemento de sincronismo de señal en el 
modem. 

Elemento de sincronismo de señal en el 
receptor. 

Datos transmitidos (canal de retorno). 
Petición- de transmisión (canal de retor- 
no). 

Preparado el canal de retorno. 
Detector de señal de línea recibida. 
Detector de llamada. 
Estas son las 21 señales que RS-232C 
especifica para la comunicación entre 
un terminal y un modem, pero de ellas 
rara vez se utilizan más allá de ocho, 
que serán las que estudiaremos en de- 
talle. 

De las tres definiciones anteriores, a 
veces no coincidirán ni la forma del co- 
nector, ni los niveles de señal; la fun- 
ción de las pantallas, en el caso de que 
no se trate de la conexión de un termi- 
nal a un equipo de comunicaciones 
(modem), también requerirá de adapta- 
ciones. 



FIGURA 2 

¡O sea que vaya un Standard! 

SEÑALES MAS 
UTILIZADAS EN RS-232C 

A continuación se da el nombre y sím- 
bolo de las señales más utilizadas de las 
21 que define el standard: 

PATILLA FUNCION 



Hemos incluido debajo la nomenclatu- 
ra inglesa de las señales porque fácil- 
mente el lector se encontrará con un 
manual en inglés en muchos casos, y 
además muchos autores prefieren man- 
tener a veces la denominación inglesa. 
Veamos una pequeña explicación de 
cada una de las «OCHO GRANDES 



SIMBOLO 



1 Tierra de protección 

2 Dato transmitido TDX 

(Transmit Data) 

3 Dato recibido KXL 

(Receive Data) 

4 Petición de emisión RTS 

(Request to Send) 

5 Preparado para emisión CTS 

(Clear to Send) 

6 Preparado el equipo de comunicaciones DSK 

(Data Set Ready) 

7 Masa de señal (retorno) 

8 Detector de señal de línea recibida DCD o < 

(Carrier Detect) 

Terminal de datos preparado DTR 
(Data Terminal Ready) 



PATILLA FUNCION SEÑAL DIRECC ION 

2 DATOS TXD De DTE a DCE 

3 DATOS RXD De DCE a DTE 

4 CONTROL RTS De DTE a DCE 

5 CONTROL CTS De DCE a DTE 

6 CONTROL DSR De DCE a DTE 
8 CONTROL DCDoCD De DCE a DTE 

20 CONTROL DTR De DTE a DCE 
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DEL RS-232C»: 

TXD — Transmite datos del DTE al 
DCE. 

RXD — Transmite datos del DCE al 
DTE (recibe el DTE). 

RTS — Señal de propósitos genera- 
les. Normalmente se utiliza 
para indicar el DTE al DCE 
que está listo para enviar da- 
tos. 

CTS — Señal de propósitos genera- 
les. Normalmente es como 
RTS pero del DCE al DTE. 

DSR — Indica al DTE que el DCE 
está conectado y listo para 
funcionar. 

DCD — Suele utilizarse para indicar 
al DTE que el DCE está re- 
cibiendo bien. 

DTR — Indica al DCE que el DTE 
está conectado y listo para 
funcionar. 

Veamos por último un cua- 
dro resumen de las señales 
en el que indicamos la direc- 
ción efe cada una de ellas (si 
van de DTE a DCE o vice- 
versa): 




RESUMEN 

Se ha pretendido en este primer artícu- 
lo introducir al lector en algunas gene- 
ralidades y conceptos básicos del inter- 
faz serie RS-232C. En próximos artícu- 
los iremos profundizando en el mismo, 
para terminar estudiando algo acerca de 
MODEMS, los cuales se conectan al 
ordenador normalmente a través de 
RS-232C. 

*Juan Ortega es Director 
Técnico de SVI España, SA 
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Programas 



iPor Angel Toribio 



MEMORY 



El tradicional juego de las 
parejas que pone a prueba la 
capacidad de retentiva. El 
programa tiene excelentes 
gráficos y es ágil en su ejecu- 
ción. David, el gnomo te 
ayudará. Es para que jue- 
guen dos jugadores. 




10 =■******************************* 
* 

20 ="* MEMORY 
* 

30 '*<c> Angel Toribio San Agustín 
* 

40 * * Para MSX-CLUB 



50 ' ******************************* 
* 

60 ' 
70 ' 

80 ' 

90 ' DIMENSIGNADG 
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100 ! 

110 DIM X (16) , GR*(60) ,ST*(60) , A (60) 
1 20 COLOR 2,1,1 
130 FOR T=l TO 10 
140 KEY T , " " 
150 NEXT T 

160 SCREEN 2, ,0: OPEN"GRP: "ASttl 
1 70 » 

1B0 * presentación 

200 * MUSICA 

210 M 1 *= " T90V 1 204L6FB-05D04B-FB-GAL 
32FR32FR32AR32AR32AR32AR32AR32AR32A 



220 M2*="T90 V903L6FB-FB-FB-FAFAFAF 
B-F02B-5 

230 PLAY M1*:PLAY M1*,M2* 

250 ' cartel 

260 * 

270 L1*="C1 1E3R14F6D22G9L14H6U22E6R 
1 4F6D22C 1 L6C 1 1 EL 1 0H4U 1 8ER 1 0F4D 1 8G4L 
10H4U18E3" 

280 PSET ( 142, 30) , 1 : DRAW Ll* 
290 RAI NT ( 147, 28) , 1 1 
300 RAI NT ( 142, 40) , 1 1 

3 1 L2*= "Cl 1 R26D6L20D8R9D6L9D8R20D6 
L26U34E3R26D6G3L 1 7D5R9D6G3L6D5R20D6 
G3" 

320 PSET (62, 30) , 1 : DRAW L2* 
330 PAINT (67, 29) , 11 
340 RAI NT (70 ,40) , 11 
350 PAINT(70,55) , 11 

360 L3S="C11R19F6D6G6L2F8D8L6U5H11L 

2C 1 U4C 1 1 U 1 0R 1 0F3D4G3L 1 0C 1 E3C 1 1 U7D7R 

1 0G3L 1 0C 1 D4C 1 1 D 1 6E3U 1 2D 1 2G3L6U34E3R 

19F6D6G7F7D8G3" 

370 PSET (173, 30) , 1 : DRAW L3* 

380 PAINT ( 181 , 28) , 1 1 

390 PAINT (181, 37) , 11 

400 PAINT ( 181 , 55) , 1 1 

410 PAINT (196, 50) , 11 

420 L4*="C1 1E3R7F6E6R7D34G3L6U29G7H 

7D29E3U23H3D29L6U34R7F6E6R7D34" 

430 PSET (25, 30) , 1 : DRAW L4* ' 

440 PAINT (31, 29) , 11 

450 PAINT (33, 45) , 1 1 

460 PAINT (50, 29) , 11 

470 PSET (99, 30) , 1 : DRAW L4* 

480 PAINT ( 105, 29) , 11 

490 PAINT ( 107, 45) , 1 1 

500 PAINT (124, 29) , 11 

5 1 L5*= " C 1 1 R6D9F5R4E5U9R6D 1 0G7D 1 4G 
3U 1 4E3G3D 1 4L6U 1 4H 1 0U 1 0E3R6D9F5R4E2U 
9E3R6D10G3" 

520 PSET (210, 30 ) , 1 : DRAW L5* 

530 PAINT (215, 28) , 11 

540 PAINT (235, 28) , 11 

550 PAINT (228, 60) , 1 1 

560 LINE(15, 15) -(250, 77) , 10, B 

570 DRAW"bml5, 1 5c 1 0e4r 235d62g4 " 



580 PAINT (17, 14) , 10 
590 COLOR 6 

600 PSET (115, 100) , 1:PRINT#1, "Para" 
610 PSET (50, 115) , 1:PRINT#1, "MSX-CLU 
B DE PROGRAMAS" 
620 PSET (50, 123) , 1 : PRINTttl , 



630 COLOR 15 

640 PSET(40, 180) , 1: PRINTttl, "<c> Ang 

el Toribio (1986) 

650 FOR T=l TO 1000: NEXT T 

660 ' 

670 ' INSTRUCCIONES 

680 ' 

690 SCREEN 0:WIDTH 40: KEY OFF:CLS 
700 COLOR 5, 1,1: LOCATE 5, 10: PRINT"Q 
uieres las instrucciones < s/n >" 
710 AS=INKEY*:IF A*="" THEN 710 
720 IF A$="s" OR A$="S" THEN CLS:GO 
TO 740 

730 IF A*="n" OR A*="N" THEN CLS:GO 
TO 890 ELSE BEEP : BEEF' : GOTO 710 
740 LOCATE 8,0:PRINT"I N S T R U C 
C I O N E S" 

750 LOCATE 5,1:PRINT" 

W .. 

760 LOCATE 1,3: PRINT"Este juego se 

compone de 60 -fichas que" 

770 LOCATE 1 , 4: PRINT"conti enen 30 1 

etras y números repetidos" 

780 LOCATE 1,5: PRINT"una sola vez c 

ada uno. " 

790 LOCATE 1 , 7: PRINT"Competi r an dos 

jugadores y cada uno en" 
800 LOCATE l,8:PRINT"su turno levan 
tara dos -fichas, y si es- tas coinc 
i den, sumara 100 puntos y ten- dra 
opción a jugar de nuevo," 
810 LOCATE 1, ll:PRINT"Si no coincid 
en se le restaran 10 pun- tos y el 

turno pasara al otro jugador." 
820 LOCATE 1 , 14: PRINT"Lo importante 

no es acertar el mayor nu mero de 
parejas, sino hacerlo en el me- ñor 

numero de intentos. " 
830 LOCATE 1 , 18: PRINT"Sel ecci onar -f 
i cha con los cursores." 
840 LOCATE 1 , 20 : PR I NT "Destapar la -f 
icha pulsando la barra." 
850 LOCATE 7, 22: PRINT" ! ! SUERTE Y A 

DIVERTIRSE ! ! " 
860 A*=INKEY*:IF A*="" THEN 860 
870 A=ASC(A*):IF A=32 THEN 880 ELSE 

860 

880 FOR T=l TO 25 : PR I NT : NEXT T 

890 ' 

900 'PANTALLA PRAL.Y VALOR VARIA. 
910 ' 

920 COLOR 1, 12, 3: SCREEN 2,2 
930 GOSUB 3380 
940 T=0 
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418 ir mo»(p». i. \)<-t>" or filo«CP«.i.n 




12M IF CtOSCCIIDl 



950 LINE (0, 0) - (14, 191) , 3, BF 
960 FOR X=17 Tü 255 STEF 1 ' 16 
970 T=T+1 
980 X(T)=X 

990 LINE(X,3)-(X+13,35) , 1 , BF 
1 000 Y ( 1 ) =3 
1010 NEXT X 

1020 FOR X = 17 Tü 255 STEP 16 
1030 LINE(X !1 37)-(X + 13,69) , 1 , BF 
1040 Y (2) =37 
1050 NEXT X 

1060 FOR X = 17 TO 255 STEP 16 
1070 LINE(X,71)-(X+13, 103) , 1 , BF 
1080 Y (3) =71 
1090 NEXT X 



1100 FOR X=17 TO 



STEP 16 



1110 LINE(X, 105)-(X+13, 137) , 1 , BF 
1120 Y (4) =105 
1130 NEXT X 

1140 LINE (X (3) , 140) -<X< 15) +13, 190) , 
1,BF 

1150 L I NE ( X ( 1 ) , 140) -(X (2) +13, 190) , 1 
,BF 

1 160 GOSUB 4330 
1170 GOSUB 4210 

1180 * 

1190 ' SORTEO GRAFICOS 

1200 7 

1210 FOR T=l TO 60 

1220 N=INT (RND (-TIME) *60) +1 

1230 IF N=A(N) THEN 1220 

1240 A(N)=N 

1250 GR* <T> =ST* <N> 

1260 NEXT T 

1270 ERASE A: DIM A (60) 

1280 

1290 ' TEXTO INFERIOR 

1300 ' 

1310 COLOR 9 

1320 PSET (100, 140) , 1:PRINT#1, " 



1330 PSET (94, 149) , 1:PRINT#1, " I Juga 
d. |" 

1340 PSET(100, 152) ,9:PRINT#1, " 



1350 COLOR 7 

1360 PSET (176, 140) , 1: PRINTttl, " 



1370 PSET(170, 149) , 1:PRINT#1, " | Pan 
tos |" 

1380 PSET(176, 152) ,7:PRINT#1, " 



1390 COLOR 11 

1400 » 

1410 ? entrada nombre jug. 1 

1420 * 

1 430 M3*= " T90V 1 2L32FR32FR32AR32AR32 
AR32AR32AR32AR32AR32GR32FR32FR32GR3 



2AR32B-" 

1440 COLOR 12:PLAY M3* 

1450 PSET(X (3) +2, 160) , 1:PRINT#1, "No 
mbre" 

1460 PSET <X (3) +2, 168) , 1 : PRINT#1 , " Ju 
gd.l" 

1470 LINE (X (6) +3, 163) - ( X ( 15) +3, 172) 
, 14, BF 

1480 COLOR 1 

1490 TX=X (6) 

1500 A$= I NKEY$ 

1510 IF A*="" THEN 1500 

1520 A=ASC(A*) 

1530 IF A>90 THEN A=A-32 

1540 A*=CHR$(A) 

1550 IF A=13 THEN BEEP : GOTO 1620 
1560 JU$ ( 1 ) =JU$ ( 1 ) +A$ 
1570 TX=TX+8 

1580 PSET (TX , 165) ¡,14: PRINTttl , A* 

1590 PLAY"164o6c" 

1600 IF TXM53 THEN 1620 

1610 GOTO 1500 

1 620 PSET ( 200 , 1 65 ) , 1 4 : PR I NT# 1 , " 0000 
0" 

1630 LINE(X(3)+2, 159) - ( X (3) +48, 176) 
, 1,BF 

1640 ' 

1650 ' entrada nombre jug. 2 

1660 " 

1670 COLOR 12 

1680 PSET (X (3) +2, 175) , 1 : PRINT#1 , "No 
mbre" 

1690 PSET (X (3) +2, 183) , 1: PRINTttl, "Ju 
gd.2" 

1700 LINE(X(6)+3, 178)-(X(15)+3, 187) 
, 14,BF 

1710 COLOR 1 

1720 TX=X (6) 

1730 A4=INKEY* 

1740 IF A$="" THEN 1730 

1750 A=ASC(A4) 

1760 IF A>90 THEN A=A-32 

1770 A*=CHR*(A) 

1780 IF A=13 THEN BEEP: GOTO 1860 
1790 JU*(2) =JU*(2) +A* 
1800 TX=TX+8 

1810 PSET (TX , 180) , 14: PRINTttl , A* 

1820 PLAY"164o5c" 

1830 IF TX>153 THEN 1860 

1840 GOTO 1730 

1850 COLOR 1 

1 860 PSET ( 200 , 1 80 ) , 1 4 : PR I NTtt 1 , " 0000 
" 

1870 LINE (X (3) +2, 1 70 ) - ( X ( 3 ) +48 , 190) 
,1,BF 

1880 » 

1890 " TURNO JUGD. 1 

1900 
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1910 FORT=1TO500: NEXTT 
1920 JU=1 

1930 PLAY"13o5a#. " 

1940 LINE(190, 164) --(240, 172) , 14, BF 
1950 COLOR 1 

1960 PSET (200, 165) , 14: PRINTttl , USING 

"#####'" ; RU ( 1 ) 

1970 LINE(X(3)+2, 150) - ( X < 3) +48, 190) 
, 1,BF 

1980 COLOR 1 

1990 PSET (105, 180) , 14:PRINT#1, JU*<2 
> 

2000 COLOR 4 

2010 PSET (105, 165) , 14:PRINT#1, JU*<1 
) 

2020 PSET (75, 165) , 1: PRINT#1, " — ► " 
2030 IF FI=30 THEN 4870 
2040 GOTO 2200 

2050 * 

2060 ' TURNO JUGD. 2 

2080 FORT=1TO500: NEXTT 
2090 PLAY " 1 3o5a# . " 

2100 LINE(X (3) +2, 150) -(X (3) +48, 190) 
, 1,BF 

2110 COLOR 1 : JU=2 

2120 LINEU90, 179) -(240, 187) , 14, BF 
2 1 30 PSET ( 200 , 1 80 ) , 1 4 : PR I NT# 1 US I NG 
"#####" ;PU(2) 

2140 PSET (105, 165) , 14: PRINT#1 , JU* ( 1 
) 

2150 COLOR 4 

2160 PSET (105, 180) , 14:PRINT#1, JU*(2 
) 

2170 PSET (75, 180) , 1:PRINT#1, " — ► " 
2180 IF FI=30 THEN 4870 
2190 GOTO 2200 

2200 ■ 

2210 ? movim. esprite 

2220 ' 

2230 N=l : X=l : Y=l 

2240 A*=INKEY*:IF A*="" THEN 2240 

2250 GOSUB 4740 

2260 A*=INKEY* 

2270 IF A*="" THEN 2260 

2280 A=ASC(A*) 

2290 IF A>32 OR A<28 THEN BEEP: GOTO 
2260 

2300 IF A=32 THEN 2830 
2310 IF A=28 THEN 2430 
2320 IF A=29 THEN 2530 
2330 IF A=31 THEN 2630 
2340 IF A=30 THEN 2730 

2350 * 

2360 * valores de y 

2380 Y=l 

2390 IF N>15 THEN Y=2 

2400 IF N>30 THEN Y=3 

2410 IF N>45 THEN Y=4 
2420 RETURN 



2430 * 

2440 ? mov. a derecha 

2450 * 

2460 N=N+1 

2470 IF N>60 THEN N=60:GOTO 2260 
2480 GOSUB 2380 

2490 IF Y=l THEN X=N:GOTO 2510 
2500 X=N-(15*(Y-1) ) 
2510 GOSUB 4740 
2520 GOTO 2260 

2530 ' 

2540 ' mov. izquierda 

2550 ? 

2560 N=N-1 

2570 IF N<1 THEN N=l:GQTO 2260 
2580 GOSUB 2380 

2590 IF Y=l THEN X=N:GOTO 2610 
2600 X=N- (15* (Y-l) ) 
2610 GOSUB 4740 
2620 GOTO 2260 



2640 mov. abajo 

2650 ' 

2660 IF N>45 AND Y=4 THEN 2260 
2670 N=N+15 
2680 GOSUB 2380 

2690 IF Y=l THEN X=N:GOTO 2710 
2700 X=N- (15* (Y-l) ) 
2710 GOSUB 4740 
2720 GOTO 2260 

2730 ' 

2740 ' mov. arriba 

2750 ? 

2760 IF N<16 AND Y=l THEN 2260 
2770 N=N-15 
2780 GOSUB 2380 

2790 IF Y=l THEN X=N:GOTO 2810 
2800 X=N-(15* (Y-l) ) 
2810 GOSUB 4740 
2820 GOTO 2260 

2840 ? primer turno 

2850 ' 

2860 GOSUB 4210 

2870 IF N=A(N) THEN PLAY " L3202AB . " : 

GOTO 2230 

2880 IF N1=N THEN PLAY"L3202AB. " : GO 
TO 2240 

2890 TU=TU+1 

2900 ON TURNO GOTO 2910,2990 

2910 PLAY"164o5cde. " 

2920 LINE(X(X),Y(Y))-(X(X)+13,Y(Y)+ 
32) , 14, BF 

2930 PSET (X (X) +9, Y (Y) +8) , 14: DRAW GR 
*<N) 

2940 PAINT (X (X) +10, Y (Y) +10) , 12 

2950 X1=X(X) : Y1=Y(Y) 

2960 N1=N 

2970 FOR T=l TO 500: NEXTT 

2980 GOTO 2240 

2990 « 
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«ie ir niD«cp». i.ii'-o- o«» nmttp». (, \ r>QÉT;' » ir ctflscfniottp». i. m-onoaTHEN «5 



3000 ' segundo turno 

3010 " 

3020 GÜSUB 4210 

3030 IF N=N1 THEN TU=1:G0T0 2240 
3040 IF N=A (N) THEN PLAY"L32Ü2AB. ":G 
OTO 2230 

3050 IF TU=2 THEN TU=0 

3060 LINE(X (X) , Y (Y) )-<X (X)+13, Y(Y) + 

32) , 14, BF 

3070 PSET(X(X)+9,Y(Y)+8) , 14:DRAW GR 
*(N) 

3080 PAINT(X (X) +10, Y (Y) +10) , 12 

3090 PLAY"164o4cde. " 

3100 FÜR T=l Tü 500:NEXT T 

3110 IF GR$(N1)=GR*(N) THEN 3120 EL 

SE 3240 

3120 ? 

3130 ■ acierto 

3140 ■ 

3150 PU(JU)=PU(JU)+100 
3160 A(N1)=N1: A(N)=N 

3170 LINE(Xl,Yl)-(Xl+13,Yl+32) , 12, B 
F 

3180 LINE(X(X),Y(Y>)-<X(X>+13,Y(Y)+ 
32) , 12, BF 

3190 PLAY"132o5cde-fegg. " 
3200 FI=FI+1 
3210 N1=0 

3220 F0RT=1 Tü 500:NEXTT 
3230 GN JU GGTO 1880,2050 

3240 ' 

3250 * fallo 

3260 ' 

3270 N1=0 

3280 LINE(X1, Y1)--(X1 + 13, Yl+32) , 1 , BF 
3290 LINE(X(X),Y(Y))-(X(X)+13,Y(Y)+ 
32) , 1,BF 

3300 PU<JU)=PU<JU>-10 

3310 IF JU=1 THEN L I NE ( 1 90 , 1 64 ) - ( 24 

0,172), 14, BF: COLOR 1:PSET(200, 165) , 

14: PRINT#1 , USING" #####" ¡¡ PU ( 1 ) 

3320 IF JU=2 THEN L I NE ( 1 90 , 1 79 ) - ( 24 

0, 187) , 14, BF: COLOR 1:PSET(200, 180) , 

14: PRINT#1 , USING"##tt##" ; PU (2) 

3330 JU=JU+1 

3340 IF JU=3 THEN JU=1 

3350 PLAY"132o4ggef edc. " 

3360 FORT=l TO 500:NEXTT 

3370 ON JU GOTO 1880,2050 

3380 '■ 

3390 • definición sprites 

3400 ' 

3410 ' 

3420 matrices de cero 
3430 ' 

3440 O 1 *=CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R* ( ) +CHR* ( ) +CHR* ( ) +CHR* ( ) +CHR$ ( 
0) 



3450 O2*=CHR*(0) +CHR* ( ) +CHR* ( ) +CH 
R* ( ) +CHRS ( ) +CHR* ( ) +CHR* ( ) +CHR* ( 

0) 

3460 03*=CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R* ( ) +CHR* ( ) +CHR* ( ) +CHR* < ) +CHR* ( 
0) 

3470 04*=CHR* ( ) +CHR* ( ) +CHR* < ) +CH 
R* ( ) +CHR* ( ) +CHR* ( ) +CHR* ( ) +CHR$ ( 
0) 

3480 ' 

3490 ' spr i te (0) -gorro rojo<6) 
3500 * 

3510 A1*=CHR* ( 1 ) +CHR* ( 1 ) +CHR* (3) +CH 
R* < 3 ) +CHR* ( 7 ) +CHR* ( 7 ) +CHR* (15) +CHR* 
( 15) 
3520 ■ 

3530 A2*=CHR* (15) +CHR* < 24 ) +CHR* (16) 
+CHR* ( ) +CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R*(0) 
3540 

3550 A3*=CHR* (0) +CHR* (0) +CHR* ( 128) + 
CHR$ ( 128) +CHR* ( 192) +CHR* ( 192) +CHR$ ( 
224) +CHR* (224) 
3560 * 

3570 A4*=CHR* (224) +CHR* (48) +CHR* ( 16 
) +CHR* ( ) +CHR* ( ) +CHR* ( ) +CHR* ( ) +C 
HR*(0) 
3580 > 

3590 SPR I TE* ( ) =A 1 *+ A2*+ A3*+ A4* 

3610 "spriteíd) — cara rojo(9) 
3620 =■ 

3630 A2*=CHR* ( ) +CHR* ( 7 ) +CHR* ( 1 3 ) +C 
HR* (15) +CHR* ( 6 ) +CHRS ( ) +CHR* ( ) +CHR 
* (0) 
3640 ' 

3650 A4*=CHR* (0) +CHR* (192) +CHR* (96) 
+CHR* ( 224 ) +CHR* (192) +CHR* ( ) +CHR* ( 
) +CHR*(0) 
3660 ' 

3670 SPR I TE* ( 1 ) =01*+A2*+03*+A4* 





3690 ' sprite*(2) — barba gris (14) 
3700 ' 

37 1 A2*=CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R* ( 16) +CHR* (24) +CHR* (31 ) +CHR* ( 14) +C 
HR*< 13) 

3720 * 

3730 A4*=CHR* (0) +CHR* (0) +CHR* (0) +CH 
R* ( 16) +CHR* (48) +CHR* (240) +CHR$ (224) 
+CHR*(96) 
3740 ' 

3750 SPRITE* (2) =0 l*+A2*+03$+A4* 
3760 * 



3770 ? sprite*(3) — chaqueta azul (4) 



3780 ' 

3790 A2*=CHR* (0) +CHR* ( 0) +CHR* (0) +CH 
R* ( ) +CHR* ( ) +CHR* ( ) +CHR* (16) +CHR* 
(48) 
3800 * 

38 1 A4*=CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R* ( ) +CHR* < ) +CHR* ( ) +CHR* (16) +CHR* 
(24) 
3820 ■ 

3830 SPR I TE* ( 3 ) =ü 1 *+A2*+03*+ A4* 
3840 * 



3850 ? spri te* (4) — manos rojo (9) 
3860 ' 

3870 A1*=CHR*(0) +CHR*<0) +CHR*(0)+CH 
R* ( ) +CHR* ( 8 ) +CHR* (12) +CHR* ( ) +CHR* 
(0) 

3880 7 

3890 A3*=CHR* (0) +CHR* < > +CHR* ( ) +CH 
R* ( ) +CHR* ( 32 ) +CHR* ( 96 ) +CHR* ( ) +CHR 
* (0) 
3900 ' 

39 1 SPR I TE* ( 4 ) = A 1 *+02*+A3*+04* 



3930 'sprite*(5) — barba /botas gris 
( 14) 

.3940 ' 

3950 A 1 *=CHR* ( 7 ) +CHR* ( 7 ) +CHR* ( 3 ) +CH 
R* ( 3 ) +CHR* ( 1 ) +CHR* ( ) +CHR* ( ) +CHR* ( 

0) 

3960 * 

3970 A2*=CHR* (0) +CHR* (0) +CHR* (0) +CH 
R* ( ) +CHR* ( ) +CHR* ( 28 ) +CHR* ( 28 ) +CHR 
* (30) 
3980 " 

3990 A3*=CHR* (192) +CHR* (192) +CHR* ( 1 
28 ) +CHR* (128) +CHR* ( ) +CHR* ( ) +CHR* ( 
0)+CHR*(0> 
4000 * 

40 1 A4*=CHR* ( ) +CHR* ( ) +CHR* ( ) +CH 
R* ( ) +CHR* ( ) +CHR* (112) +CHR* ( 1 1 2 ) +C 
HR* ( 120) 
4020 ' 

4030 SPR I TE* ( 5 ) =A 1 *+ A2*+ A3*+ A4* 
4040 ' 



4050 'sprite*(6) — pantalones azul (7 
> 

4060 * 

4070 A2*=CHR* ( 63 ) +CHR* ( 62 ) +CHR* ( 28 ) 
+CHR* ( 28 ) +CHR* ( ) +CHR* ( ) +CHR* ( ) +C 
HR*(0) 
4080 ' 

4090 A4*=CHR* ( 248 ) +CHR* ( 248 ) +CHR* ( 1 
1 2 ) +CHR* (112) +CHR* ( ) +CHR* ( ) +CHR* ( 
0)+CHR*(0) 
4100 9 

4110 SPRITE* (6) =01*+A2*+03*+A4* 



4130 :, sprite*(7) — chaqueta azul (4) 
4140 ' 

4 150 A 1 *=CHR* ( 1 20 ) +CHR* ( 1 04 ) +CHR* ( 1 
08 ) +CHR* (116) +CHR* ( 53 ) +CHR* ( ) +CHR* 
(60) +CHR*( 127) 
4160 7 

4170 A3*=CHR* (60) +CHR* (44) +CHR* ( 108 
) +CHR* ( 92 ) +CHR* ( 88 ) +CHR* ( ) +CHR* ( 1 2 
0)+CHR*(252) 
4180 

SPRITE*(7) =Al*+02*+A3*+04* 
RETURN 

J^C ¡^í ^f- *if. ¡^í "ff. ¡^£ )|C 'if. I^í J^C 

' pos. inicial sprite 
RUT SPRITE 0, <X(l)+8, 150) ,6,0 



4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 



PUT SPRITE i, <X(l>+8, 150) ,9, 1 
PUT SPRITE 2, (X (1 )+8, 150) , 14,2 
PUT SPR.ITE 3, (X ( 1 > +8, 150) , 4, 3 
PUT SPRITE 4, (X (l)+8, 166) ,9,4 
PUT SPRITE 5, <X(l)+8, 166) , 14,5 
PUT SPRITE 6, (X (1) +8, 166) ,7,6 
4310 PUT SPRITE 7, (X ( 1 ) +8, 166) , 4, 7 
4320 RETURN 

4330 * 

4340 ' de-f . de gráficos 

4350 * 

4360 ST* ( 1 ) * " C 1 2F2D3L2D2L5U4ER3FD2R 

2D1 1L2U7L5D7L2U14E2R5" : ' A 

4370 ST* ( 2 ) = " C 1 2F2D2L2UHL4D5R4EU2R2 

D3GFD3L2U2HL4D5R4EUR2D2G2L7U16R7" : " 

B 

4380 ST* ( 3 ) = " C 1 2F2D2L2UHL3GD 1 0FR3EU 
R2D2G2L5H2U12E2R5" : ' C 

4390 ST* ( 4 ) = " C 1 2F2D6L2U5HL4D 1 2R4EU5 
R2D6G2L7U16R7" : ' D 

4400 ST* (5) ="C1 2F2D2L2UHL4D5R3D2L3D 
5R4EUR2D2G2L7U16R7" : ' E 

4410 ST*(6)="C12F2D2L2UHL4D5R3D2L3D 
7L2U16R7": 'F 

4420 ST* (7) ="C1 2F2D2L2UHL3GD 1 0FR3EU 
2L2U2R4D5G2L5H2U12E2R5" : ' G 
4430 ST* (8) ="C12R2D16L2U7L5D7L2U16R 
2D7R5U7": * H 

4440 ST* ( 9 ) = " C 1 2R2D 1 4G2L5H2U3R2D2FR 
3EU13" : ' J 

4450 ST* ( 1 ) = " C 1 2R2D3G5F5D3L2U2H5D7 
L2U16R2D7E5U2" : * K 

4460 ST* ( 1 1 ) = " C 1 2R2D 1 6L2U 1 3G2LH2D 1 3 
L2U16R2F2RE2" : ' M 

4470 ST* ( 12) ="C1 2F2D7L2U6HL3GD 1 0FR2 
H2E2F2U3R2D5FG2HL5H2U12E2R5" : ' Q 
4480 ST* ( 1 3 ) = " C 1 2F2D7L2U6HL3GD 1 0FR3 
EU4R2D5G2L5H2U12E2R5" : ' O 
4490 ST* ( 14) ="C12R2D16L2U3H5D8L2U16 
R2D5F5U10" : ' N 

4500 ST* ( 15) ="C12F2D3L2U2HL4D5R4EUR 
2D2G2L5D7L2U 1 6R7 " : ' P 

45 1 ST* ( 1 6 ) = " C 1 2F2D3L2U2HL4D5R4EUR 
2D2G2L2F4D3L2U2H5D7L2U16R7" : * R 
4520 ST* ( 17) ="C12F2D2L2UHL3GD3FR4F2 



= 



Programai 



«le ir niDtCP*. i. n 




<u<6 ir ctftSCfnioi 



D5G2L5H2U2R2DFR3EU3HL4H2U5E2R5" : ' S 
4530 ST* ( 1 8 ) = " C 1 2R2D 1 4G2L5H2U 1 4R2D 1 
3FR3EU13" : ' U 

4540 ST* ( 19) ="C12R2D12G4LH4U12R2D1 1 
F2RE2U11": ' V 

4550 ST* ( 20 ) = " C 1 2R2D4G3D2F3D4L2U3H2 
LG2D3L2U4E3U2H3U4R2D3F2RE2U3" : " X 
4560 ST* ( 2 1 ) = " C 1 2R2D4G3D9L3U9H3U4R2 
D3F2RE2U3" : ' Y 

4570 ST*(22)="C12R2D5G7D2R7D2L9U5E7 
U2L7U2R7": 7 Z 

4580 5T*(23) -"C12F2D4G7DR7D2L9U4E7U 
2HL3GDL2U2E2R5 " : * 2 

4590 ST* (24) ="C12F2D4G2F2D4G2L5H2U2 
R2DFR3EU2H2L2U2R2E2U2HL3GDL2U2E2R5 " 
: "3 

4600 ST* ( 25 ) = " C 1 2R2D6L2U4LG4D3R5U3R 
2D10L2U5L7U6E5R2" : ' 4 

4610 ST* ( 26) = "C12R2D3L7D3FR4F2D5G2L 
5H2U2R2DFR3EU3HL4H2U7R7 " : * 5 
4620 ST* < 27 ) = " C 1 2F2D2L2UHL3GD4R5F2D 
2L2UHL3GD3FR3EU2R2D3G2L5H2U1 2E2R5" : 
' 6 

4630 ST*(28) ="C12F2D14L2U7L2U2R2U4H 
L3GDL2U2E2R5" : '7 

4640 ST* (29) -"C12F2D2L2UHL3GD3FR3EU 
2R2D3GFD2L2UHL3GD3FR3EU2R2D3G2L5H2U 
5EHU5E2R5" : ' B 

4650 ST* ( 30 ) = " C 1 2F2D 1 2G2L5H2U2R2DFR 

3EU4L5H2U2R2DFR3EU3HL3GD2L2U3E2R5" : 
* 9 

4660 * 

4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 

4760 
4770 



DEFIN. DOBLE GRAFICO 

? 

FOR T=31 TO 60 

ST*(T)=ST*(T-30) 

NEXT T 

RETURN 

GOTO 4730 

' pos. sprite 

PUT SPRITE 0, (X (X) , Y (Y) ) , 6,0 



4780 PUT SPRITE 1 , ( X ( X ) , Y ( Y) ) , 9, 1 

4790 PUT SPRITE 2, ( X < X > , Y < Y) ) , 14, 2 

4800 PUT SPRITE 3, ( X ( X ) , Y ( Y) ) , 4, 3 

4810 PUT SPRITE 4 , < X ( X ) , Y ( Y ) + 1 6 ) , 9 , 
4 

4820 PUT SPRITE 5, ( X ( X ) , Y ( Y ) + 1 6 ) , 1 4 
,5 

4830 PUT SPRITE 6,(X(X),Y(Y)+16),7, 
6 

4840 PUT SPRITE 7, (X(X),Y(Y)+16),4,7 

4850 PLAY"164o3bag. " 

4860 RETURN 

4870 * 

4880 ' FINAL 

4890 ' 

4900 LINE(X (1 ) ,Y(1))-(X(15)+13,Y<4) 
+32) , 1,BF 

49 10 MI *= " T90V 1 2Q3L6FB-04D03B-FB-GA 

L32FR32FR32AR32AR32AR32AR32AR32AR32 

AR32GR32FR32FR32GR32AR32B-" 

4920 COLOR U:PLAY MI* 

4930 PSET (80, 30) , 1 : PRINTttl , " 

ISBBMi BHB ' 1 

4940 PSET (80 ,40) , 1:PRINT#1, " ■ CAM 
PEON ■" 

4950 P SET (80, 50) , 1;PRINT#1, " ■■__■ 

4960 IF PU ( 1 ) >PU (2) THEN PU=1 ELSE 
PU=2 

4970 COLOR 7 

4980 PSET (50, 70) , 1 : PRINTttl , JU* (PU) ; 
" con";PU(PU) : "Puntos" 
4990 COLOR 4 

5000 PSET ( 30 , 77 ) , 1 : PR I NTtt 1 , " 



5010 COLOR 14 

5020 PSET (65, 120) , 1:PRINT#1, "Otra p 

artida <s/n>" 

5030 A*= INKEY* 

5040 IF A*-"" THEN 5030 

5050 IF A*-"s" OR A*="S" THEN RUN 

5060 IF A*="n" OR A*-"N" THEN SCREE 

N0: COLOR 1,1, 1 : END 
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Programa— — — — ™«i Por Francisco M. Sánchez 



CONTROL DE CASTOS 
CASEROS 



Este programa está pensado 
para que organicemos nues- 
tros gastos domésticos. Gra- 
cias a él podemos llevar las 
cuentas grabadas en cinta, 
pudiendo recuperarlas fácil- 
mente. 



El menú ofrece las siguientes posibilidades: 

1. Da de alta una cuenta. Hasta 60 cuentas se pueden utilizar con este programa, pudiéndose 
ampliar cambiando la dimensión de los arrays. 

2. Da de baja una cuenta. Con sólo teclear el número de cuenta, el ordenador se encarga de 
borrarla. 

3. Corrección. Se pueden modificar cualesquiera de los datos. 

4. Listado de una cuenta. Pidiendo el número de cuenta muestra en pantalla su estado. 

5. Listado general. Esta opción muestra en pantalla todas las cuentas dadas de alta y calcula el 
total de todas ellas. 

6. Total acumulado de un concepto. Se da a la máquina el concepto a localizar y luego muestra 
todas las cuentas en la que aparece. Al final calcula la cantidad acumulada por tal concepto. 

7. Carga de ficheros. Realiza la carga de una cassette. 

8. Grabación de ficheros. Realiza la grabación de datos en una cassette. 

9. Salida del programa. 



10 KEY OFF 

20 ********************* 
30 '******************** 
40 '**** Control de **** 
50 '** gastos caseros ** 
60 7 ******************** 
70 '** FCO.M. SANCHEZ ** 
80 ****** para ****** 
90 '***** MSX-CLUB****** 
1 00 ="******************** 
110 ' ******************** 
120 CLEAR 6000 
130 X=0:Y=0 

140 DIMA*(60) :DIMB(60) :DIMB$<60) 
150 CLS 

160 PRINT " MENU " 

170 PRINT " " 

180 PRINT 

190 PRINT "1-Dar de alta una cuenta 
" 8 PRINT 

200 PRINT "2-Dar de baja una cuenta 
"s PRINT 

210 PR I NT "3-Cor rece ion de una cuent 



a" : PRINT 

220 PRINT" 4-Li stado de una cuenta": 
PRINT 

230 PRINT "5-Listado general " : PRINT 
240 PRINT "6-Total acumulada de un 
concepto" : PRINT 

250 PRINT "7~~(5rab ación de -ficheros" 
: PRINT 

260 PRINT "8-Carga de f i eneros" : PRI 
NT 

270 PRINT"9-5alir del programa" : PRI 
NT 

280 PRINT 

290 PRINT "Opción" 

300 T$= I NKEY$ 

310 IF T*="" THEN 300 

320 C=VAL(T*> 

330 IF T*<" l"OR T*>"9"THEN GOTO 300 
340 ÜN C GOTO 380,620,770,940,1050, 
1220, 1350, 1490, 1620 
350 ' 

360 ' ALTAS 
370 * 
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Programa 



380 CLS 

390 IF X>=60 AND Y>=60 THEN F :, RINT"F 
ichero comp 1 eto" : FOR T=0 TO 1500: N 
EXT: GOTO 150 
400 X=X+1:Y=Y+1 

410 LOCATE 24,0:PRINT", 1" 

420 LOCATE 24,2:PRINT" L '" 

430 LOCATE 25, 1 : PRI NT "Cuenta ";X 
440 LOCATE 2 ,2; PRI NT", ," 

450 LOCATE 2, 4: PRI NT" 1 '" 

460 LOCATE 3,3: INPUT" Fecha" ; A* (Y) 
470 IF LEN(A*(Y))>8 THEN GOTO 460 

480 LOCATE 2 ,7: PRINT", , " 

490 LOCATE 2,9:PRINT M| 1 " 

500 LOCATE 3,8: INPUT "Concepto" ; B$ (Y 
) 

510 IF LEN(B*(Y))>8 THEN GOTO 500 

520 LOCATE 2, 12: PRI NT", , " 

530 LOCATE 2, 14: PRINT" 1 1 " 

540 LOCATE 3, 13: INPUT"Canti dad " ; B ( Y 
) 

550 IF B(Y)<0 THEN 540 

560 LOCATE 3, 21 : PRINT"Otra cuenta ( 

S/N) " 

570 C$--INKEY$: IF C*="" THEN 570 

580 IF C$="S" THEN GOTO 380 

590 IF C*="N" THEN GOTO 150 

600 IF C*<>"S"ORC*<>"N" THEN GOTO 5 

60 

610 " 

620 ? BAJAS 
630 •- 

640 CLS:H=1 

650 IF Y=0 THEN CLS: PRI NT" Fi enero v 

acio":PRINT:GOTO 1010 

660 INPUT"No. de ficha a dar de baj 

a";A:IF A >Y THEN CLS: GOTO 660 

670 IF A=Y THEN : GOTO 710 

680 FOR J=A TO Y 

690 A* < J ) =A* ( J + 1 ) : B ( J ) =B ( J+ 1 ) : B* < J ) 
=B$ < J + l ) 
700 NEXT 

710 Y=Y-1 s X = X~-1 : PRI NT: PRI NT: PRI NT 

720 PRI NT "Par a menú pulsa una tecla 
■i 

730 G*=INKEY* 

740 IF (S*=" ri THEN GOTO 730 

750 GOTO 150 

760 ■' 

770 * CORRECION DE CUENTAS 

780 ' 

790 H=1:CLS:IF Y=0 THEN PRINT"Fi che 
ro vacio": GOTO 1010 

800 INPUT "No. de cuenta a corregir"; 
J; IF J>Y THEN 790 

810 PRI NT: PRI NT 

820 GOSUB 1680 
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830 GOSUB 1630: PRI NT 
840 PRI NT 
850 PRI NT 

860 INPUT"Fecha" ¡H$: PRINT: IF LEN(H* 
) >8 THEN 860 

870 INPUT"Concepto" ; I*: PRINT: IF LEN 

(I*) >8 THEN 870 

880 INPUT "Cantidad" ;L 

890 A*(J)=H*:B*(J)=I*:B(J)=L 

900 PRINT: PRINT"Pulsa una tecla par 

a' menú" 

910 Q*=INKEY$: IF Q*~ " " THEN 910 
920 GOTO 150 

930 ? 

940 i LISTADO DE UNA CUENTA 

950 ' 

960 IF /=0 THEN CLS: PRINT"Fi cher o 
vacio": GOTO 1010 

970 CLS: H=l : INPUT"No. de cuenta a 
listar"; J 

980 IF J>Y THEN 970 
990 PRINT: GOSUB 1680 
1000 GOSUB 1630 

1010 PRINT: PRI NT "Par a menú pulsa un 
a tecla" 

1020 Q$=INKEY*:IF □*="" THEN 1020 
1030 GOTO 150 
1040 * 

1050 ' LISTADO GENERAL 
1060 ' 

1070 IF Y=0 THEN GOTO 650 
1080 CLS:F=0 

1090 PRINT" "; " 

W " 

1100 H= 1 : GOSUB 1680 

1110 FOR J=l TO Y 

1 120 H-H+l 

1130 GOSUB 1630 

1140 F=F+B(J) 

1150 NEXT 

1160 PRINT: PRINT: PRINT"Total- ";F 
1170 PRINT: PRINT: PRI NT" Para menú p 
ulsa una tecla" 
1180 G$= I NKEY$ 

1190 IF G$="" THEN GOTO 1180 
1200 GOTO 150 
1210 ' 

1220 * TOTAL ACUMULADO 
1230 ' 

1240 IF Y=0 THEN GOTO 650 

1250 CLS: V=0:H=1: INPUT "Concepto a 

buscar" ; X* 

1260 CLS: GOSUB 1680 

1270 FOR J=l TO Y 

1280 IF B*<J)=X* THEN H=H+1: GOSUB 1 

630 

1290 NEXT 




1300 PRINT: PRINT: PRI NT "Total acumu 
lado= ";V- PRINT: PRINT" Par a menú pul 
sa una tecla" 
1310 G$=INKEY$ 

IF G*="" THEN GOTO 1310 
GÜTÜ 150 



GRABACION DE FICHEROS 



1 320 
1330 
1340 
1350 
1360 * 

1370 CLS: PRI NT "Pon el 
a grabar información y 
eta una tecla" 
1380 G*=INKEY* 

IF G*="" THEN GOTO 1380 
CLS: PRI NT "Espera, estoy graband 



cassette par 
después apri 



1390 
1 400 
o" 

1 4 1 

1 420 



OPEN"CAS:CONT" FOR OUTPUT AS 1 
PRINT#1 , X:PRINT#1, Y:PRINT#1 ,F: 
PRINT#1, V 
1430 FOR $Mt TO Y 

1440 PRINTttl , A$(J) :PRINT#1,B*(J) : PR 
INT#1, B(J> 
1450 NEXT 

CLOSE 1 
GOTO 150 



CARGA DE FICHEROS 



1 460 
1470 
14S0 
1490 
1500 9 

1510 CLS:PRINT"Pon el cassette para 
que de información y pulsa una tec 
la" 

1520 G$= INKEY$ 



1520 



1530 IF G*~-="" THEN GOTO 
1540 CLS: PRI NT "Car gando" 
1550 OPEN"CAS:CONT" FOR INPUT AS 1 
1560 INPUT#1,X: INPUTttl.Y: INPUT#1,F: 
INPUTttl, V 
1570 FOR J=l TO Y 

1530 INPUT#1, A*(J) : INPUT#1 , B$ (J ) : 
PUT#1,B<J) 



. IN 

PUT#1 , B< J> 
1590 NEXT 
1600 CLOSE 1 
1610 GOTO 150 
1620 CLS: END ■ 

1630 IF B(J)<10--5 THEN PRINT USING" 
## "; J; :PRINT"| "; : PRINT USING"\ 

\";A*<J) ; :PRINT"| " ; :PRINT USING" 
\ \";B$(J) ; : PRINT"| "; : PRINT US 

ING"tt#### ";B(J) ; : PRINT" | " 

1640 IF B( J) >=10--5 THEN PRINT USING 
"## ";J;: PRINT"| ";: PRINT USING" \ 

\ " ; A* ( J ) ; : PR I NT " | " ; : PR I NT US I N 
G"\ \ " ; B* ( J ) ; : PR I NT " | " ; : PR I NT 

US ING"## . ##■•••• •••••■•• ■•• " ; B ( J ) ; : PR I NT " | " 

1650 V=V+B<J> 

1660 IF HMOD20=0 THEN PRINT: INPUT" 
Pulsa return para segui r " ; F$: CLS 
1670 RETURN 

1680 PRINT"| " ; "no. | " ; " Fecha " 
; "Concepto" ; "| " ; "Cantidad " ; "| « 

1690 PRINT"- 

W 



"; "I 



1700 RETURN 



est de listado 



Control de gastos casero* 



10 

20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 60 
170 
180 
190 
200 
210 
220 
230 
240 



183 
58 
58 
58 
58 
58 
58 
58 
58 
58 
58 



260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

m 



•■¿¿SO 

•143 
■145 

■ 61 

• 83 

- 75 
142 

■224 

• 64 

■ 58 

• 58 

- 58 
159 

■ 94 
■128 

110 
116 

- 64 



231 
159 
10 
237 
145 
68 
49 

148 460 - 80 
94 470 -193 
176 480 - 9 
201 490 - 15 
250-166 500 75 



510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
7 1 
720 
730 
740 



-234 

- 12 

- 18 
-118 
-126 
-130 
-197 
-102 
- 1 22 
-216 

- 58 

- 58 

- 58 

- 34 
-207 

- 16 
-135 

- 46 
• 6 

131 
-227 

128 
■ 70 

118 



760 

780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 



- 58 

■ 58 

■ 58 
135 

■151 

• 92 

- 49 
202 
-145 
■145 
-115 
-227 
-104 

- 68 

■ 75 

■ 54 

- 45 

- 58 

- 58 

• 58 

■ 4 
-206 
•209 
■252 



1010 

1020 
1030 
1040 
1050 
1 060 
1070 
1 080 
1 090 

1 100 

1 110 
1120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 
1 1 90 
1 200 
1210 
1220 
1230 
1 240 



• 75 
-164 

- 45 

- 58 

- 58 

- 58 
•225 

- 31 

- 84 
-180 
-255 

130 
■255 

■ 73 
131 

- 45 

■ 22 

- 70 

- 58 

- 45 

- 58 

- 58 

- 58 
-225 



1260 
1270 
1280 
1290 
1300 
1310 
1 320 
1 330 
1 340 
1 350 
1 360 
1370 
1 380 
1390 
1400 
1410 
1 420 
1430 
1 440 
1 450 
1 460 
1470 
1 480 
1 490 



1000 - 255 * 250 -^ ^ 



- 10 
-255 
-140 
-131 
-125 

- 70 
-189 

- 45 

• 58 
• 58 

- 58 

- 85 

• 70 

•172 
•207 
195 
•255 

• 40 
131 
198 

45 

• 58 

• 58 

-1 



1510 


- 64 


1520 




1530 


-143 


1540 


-205 


1550 


- 5 


1 560 


-147 


1570 


-255 


1580 


- 4 


1590 


-131 


1600 


-198 


1610 


- 45 


1 620 


- 90 


1630 


- 82 


1640 


-194 


1 650 


-105 


1 660 


-181 


1 670 


-142 


1 680 


- 97 


1690 


- 45 


1 700 


-142 



TOTAL: 
18658 1 
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Programa 



Por Javier Esquirol Jiménez/ 







DIBUJA SPRITES 



Este sencillo programita tie- 
ne la virtud de facilitarte el 
dibujo de sprites en 8x8 y 
16x16, tanto simple como 
ampliados, y después te da 
las datas. Su manejo es muy 
sencillo. 



Instrucciones: 

En primer lugar hay que escoger el tipo de 
sprite que se desea. Los tipos son: 8x8, 
8x8 ampliado, 16x16, 16x16 ampliado. 
Usando las teclas del cursor se desplaza éste 
(un sprite) por toda la pantalla. Al pulsar la 
barra espaciadora si el cursor se halla enci- 
ma de un cuadrito éste se pinta de blanco. Si 
se vuelve a pulsar la barra éste se borra. 
Al realizar Sprites del tipo 1 y se trabaja 
sobre el cuadrante 1. 

Al realizar sprites del tipo 2 y 3 se trabaja en 
los cuatro cuadrantes. 
Cuando se completa un cuadrante es nece- 
sario pulsar la tecla S una sola vez y esperar 
un momento. 

Cuando has completado el sprite se te ofre- 
ce una visualización del mismo y una 
opción de modificación. 
En los sprites y 1 sólo es modificable el 
cuadrante 1. 

Cuando no se desee realizar ninguna modi- 



ficación del sprite aparecerá el mismo en bi- 
nario para poder pasarlo cómodamente a 
otro programa. 
Explicación: 

10-150, preparación del programa y presen- 
tación de las instrucciones. 
160-460, dibujo de la cuadrícula, del indica- 
dor de cuadrante y se presenta la opción de 
tipo de sprite. 

470-670, se crea el cursor como un sprite y 
se controla su movimiento. 
680-920, se llena el array VB$. Se almacena 
un "1" si se pulsa una vez la barra espacia- 
dora. Si se pulsa otra vez o un número par 
de veces, o no se pulsa, se almacena un "0". 
Las líneas 720 y 730 se encargan de hallar 
las coordenadas cero del cuadro en que se 
encuentra en ese momento el cursor para 
poder realizar un LINE BF. 
Las líneas 740 y 750 reducen los valores 
anteriores a valores del 1 al 8 que indican 
fila y columna en el vector VB$. 



830-870, aquí se encuentran los DATA del 
sprite cursor. 

880-1040, se realiza la lectura del array VB$ 
y se crea el sprite (F$). 
1050-1090, se presenta el sprite en pantalla. 
1 100-1 190, se presenta la opción de modifi- 
car. 

1200-1380, se presenta el sprite en binario. 
1390-1440, subrutina para modificar. 
1450-1540, dibuja la parte de sprite del cua- 
drante que se quiere modificar. 
El hecho de utilizar un sprite como cursor 
se debe a que ello daba rapidez y agilidad. 
El grupo de líneas que se encargan del mo- 
vimiento del cursor puede parecer pesado, 
pero éste se desplaza con gran rapidez, pu- 
diendo variar esta velocidad incrementando 
o decrementando el n." 3 que aparece en las 
líneas 550-670. 

Además de presentar el resultado en binario 
se podría presentar en hexadecimal para 
aquellos que les guste formar así los sprites. 
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ÜFF 



5 ' *** DIBUJA SPRITES *** 
10 CLEAR 

20 DIM VB*<4,9,9> :WIDTH 37:KEY 
30 ÜPEN"GRP: "FOR OUTPUT AS 1 
40 SCREEN 0:CÜLÜR 4,15,15:CLS 
50 PRINT"Debes escoger el tipo de S 
prite: ":PRINT 
60 PRINT" 0-8*8" 
70 PRINT" 1-8*8 ampliado" 
80 PRINT" 2-16*16" 
90 PRINT" 3-16*16 ampliado" 
100 PRINT:PRINT"Usa las teclas del 
cursor y la barra de espacio para 1 
leñar los cuadros" 
110 PRINT: PRINT"Cuando termines 
cuadrante pulsa S (púlsala solo 

vez y espera un momento) " 
120 PRINT: PRINT "En los sprite 2 

puedes modificar cualquiera de 

4 cuadrantes" 
130 PRINT: PRINT"En los sprite y 1 

solo es modifica-ble el cuadrante 
1 " 

140 LOCATE 0,22: PRINT "Pulsa tecla" 

150 IF INKEY*=" " THEN 150 

160 SCREEN 2,1: COLOR 15,1,9:CLS 

170 FÜR F=35 Tü 155 STEP 15 

180 LINE(68,F)-(1S8,F) , 15 

190 NEXT F 

FOR C=68 TO 188 STEP 15 
LINE(C,35)-(C, 155) , 15 
NEXT C 

FOR J=20 TO 50 STEP 15 
LINE(J,35)~(J,65) , 15 
NEXT J 



un 
una 

y 3 

los 



200 
2 1 
220 
230 
240 
250 
260 
270 
280 
290 
300 



FOR 1=35 TO 



65 STEP 15 
p I) , 15 



THEN NS=MG-1 
THEN LINE (20, 35) 



•(35,50 



LINE (20, I ) - 
NEXT I 
IF OP=í 
IF NS=0 
) , 1 1 , BF 

310 IF NS=1 THEN L I NE ( 20 , 50 ) - ( 35, 6 
) , 1 1 , BF 

320 IF NS=2 THEN 
) , 1 1 , BF 

330 IF NS=3 THEN 
) , 1 1 , BF 
340 COLOR 1 

350 L I NE ( 1 48 , 1 70 ) - ( 225 , 1 80 ) , 7 , BF 

360 PSET ( 160., 172) :PRINT#1, "Pulsa S" 

370 IF N5O0 OR 0P=1 THEN 460 

380 LINE (40, 5) -(245, 15) ,7,BF 

390 PSET (45, 7) :PRINT#1, "Tipo de spr 

ite(0, 1,2,3) : " 



LINE (35, 35) -- (50, 50 
LINE (35, 50) -(50, 65 



400 

410 

420 

430 
o 2 n 



B*=" " 

B*=INKEY* 

IF B*="" THEN 410 

IF B*<>"0" AND B*<>' 
AND B*<>"3"THEN 380 



1" AND B*- 



440 PRESET(236,7) , 7: PRINTttl , B* 
450 TP=VAL(B*) 

460 IF NSO0 OR ÜP=1 THEN 520 
470 REM'"" SPRITE. CURSOR 

480 FOR T=l TO 4 
490 READ D* 

500 Q*=a*+CHR*(VAL<"S<B"+D*) ) 

510 NEXT T 

520 SPRITE* (4) =0* 

530 IF 0P=1 THEN GOSUB 1450 

540 X=68:Y=35 

550 PUT SPRITE 0,(X,Y),15,4 
560 IF INKEY*="S" THEN 890 
570 IF STICK(0)=1 THEN PUT SPRITE 
, <X,Y) , 1,4: Y=Y-3:GOTO550 
580 IF STICK(0)=3 THEN PUT SPRITE ! 
, (X, Y) , 1,4: X = X+3: GOTO550 
590 IF STICK(0)=5 THEN PUT SPRITE 
, <X, Y) , 1,4; Y=Y+3: GOTO550 
600 IF STICK(0)=7 THEN PUT SPRITE 
, (X, Y) , 1,4: X = X-3:GOTO550 
610 IF STICK(0)=2 THEN PUT SPRITE 
, (X,Y), 1,4:X = X + 3:Y=Y~3:GOTO550 
620 IF STICK(0)=4 THEN PUT SPRITE 
„ (X,Y) , 1,4:X=X+3:Y=Y+3:GOTO550 
630 IF STICK(0)=6 THEN PUT SPRITE I 
, (X,Y) , 1,4:X=X-3:Y=Y+3:GOTO550 
640 IF STICK(0)=3 THEN PUT SPRITE 
, (X,Y) , 1,4:X = X~3:Y=Y-3:GOTO550 
650 X=XM0D255: Y=YM0D255 
660 IF X<0 THEN X=255+X 
670 IF Y<0 THEN Y=255+Y 
680 REM ' > > ' ' « AL PULSAR BARRA. 

690 IF STRIG(0)=-1 THEN 700 ELSE 55 



700 IF X<68 OR X>187 THEN 820 

710 IF Y<35 OR YM54 THEN 820 

720 XP=X-(X-(68+(INT( (X-68)/15) )*15 

) ) 

730 YP=Y- ( Y- ( 35+ ( I NT ( ( Y-35 ) / 1 5 ) ) * 1 5 
) ) 

740 XC= ( (XP-63) /15) h-1 
750 YC= ( (YP-35) /15) +1 

760 IF VB*(NS, XC, YO =" 1 "THEN ^800 EL 
SE 770 

770 LINE(XP,YP)-(XP+15, YP+15) , 15, BF 
780 VB*(NS,XC,YC)-"1" 
790 GOTO 820 

800 LINE(XP+1, YP+1)-(XP+14,YP+14) , 1 
,BF 

810 VB*(NS, XC, YO="0" 
820 GOTO 550 

830 REM ' * ' * SPRITE CURSOR 

840 DATA 11110000 
850 DATA 11110000 
860 DATA 11110000 
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Programa 



«18 ir niotCPt. 1. 1 )< ■<"•• OH niD«(P».l.i) 




870 DATA 11110000 

880 REM * > * * > > CREACION SRRITE F* '■ '■ 
890 R*="" 

900 FDR C=68 TO 173 STER 15 
910 FGR F=35 Tü 140 STER 15 
920 XF= ( (F-35) /15) +1 
930 YF- ( (C-68) /15) +1 

940 IF VB*(N3,XF,YF>="1" THEN C$="l 
" EL3E VB* (NS, XF, YF) ="0" : C*= ,, 0" 
950 IF OF-1 THEN NS=MO-l 
960 3*=S*+C$:C*="" 
970 NEXT F 

980 P*=P*+CHR* < VAL ( " $B " + S* ) ) g g*=s " " 

990 NEXT C 

1000 SP*(NS)=P$ 

1010 IF OF-1 THEN GOSUB 1390: GGTÜ 1 
060 

1020 F*=F*+P* 

1030 IF TF-0 GR TP*Í THEN 1060 
1040 NS=N5+1:IF NS=4 THEN 1060 ELSE 
160 

1050 REM 7 ' ' ' ' COLOCACION SRRITE 

K ( t 

1060 SCREEN 2, TP: COLOR 15:CLS 

1070 SRRITE* (5) =F* 

1080 RUT SPRITE2, (115,60) ,7,5 

1090 LÍNÉCS, 157) - (235, 170) , 15,BF:C0 

LOR 1 

1100 REM ' ' ' ' ' ' ' OPCION MODIFICAR '■ '■ \ 

1110 PSET ( 12, 160) : PRINT#1 , "Modifica 
r (Cuad. 1,2,3,4/N) " 
1 120 MO*= INKEY* 

1130 IF MO*< >" 1 " AND M01i<>"2" AND M 
0*<>"3" AND Ma*<> ,, 4 , ' AND M0*O"N" T 
HEN 1120 

1140 IF TP=0 AND M0*="2" OR TP=1 AN 
D MG$="2" THEN 1120 

1150 IF TP=0 AND M0*-"3" OR TP=1 AN 
D M0*="3" THEN 1120 

1160 IF TP=0 AND M0*="4" OR TP=1 AN 
D M0*="4" THEN 1120 



1170 MO=VAL(MO*> :OP=l 
1180 IF M0*O"N" THEN 160 

1190 MO*= M ":OP=0 

1200 REM ' " ' ? 'SPRITE EN BINARIO 



TO 8 
TO 8 

,C,F); 



1210 
1220 
1230 
1240 
1 250 
1260 
1270 
1 280 
1 290 
1 300 
1310 
1320 
1 330 
1 340 
1 350 
1360 
1370 
1 380 
1 390 

1 400 
1410 
1 420 
1 430 
1 440 
1450 

1 460 
1470 
1 480 
1490 
1 500 
ELSE 

1510 LINE(C,F)-(C+15,F+15) , 15, BF 
1520 NEXT C 
1530 NEXT F 
1540 RETURN 



SCREEN 0:WIDTH 40: COLOR 15 
IF TP=0 OR TP=1 THEN 1320 
FOR F=l TO 8 
FOR NU=0 TO 3 
PRINT" "; 
FOR C=l Tü 8 
PRINTVB* (NU, C, F) ; 
NEXT C 
NEXT NU 
NEXT F 
END 

FOR F=l 
FOR C=l 
PRINTVB* (! 
NEXT C 
PRINT" " 
NEXT F 
END 

REM 7 ' 9 * 9 SUBRUTINA MODIFICARA 



F*=" " 

FOR HV=0 TO 3 
F*=F*+SP*(HV) 
NEXT HV 
RETURN 

REM * LLENAR 



PARA MOD. 



ÍTEP 



15 
15 



FOR F=35 TO 140 
FOR C-68 TO 173 STER 
XF= ( (F-35) /15) +1 
YF=( (C-68) /15)+1 

IF VB* ( NS , YF , XF ) = " 1 " THEN 1510 
1520 



Test de listadoi 



Dibuja sprites 




5 
10 
20 
30 
40 
50 
60 
70 
80 



- 58 
-146 

- 51 
•173 

- 79 
-114 
•204 
• 20 

- 44 



1 00 
1 10 
120 
130 
Í 40 
150 
160 
170 
180 
190 



180 
•231 
•235 
•252 

■ 87 

■ 40 
136 
102 
143 



200 
210 
220 
230 
240 
250 
260 
270 
280 
2< 



-165 

- 71 
-198 
-242 
-251 
-205 

- 15 
-219 
-204 



300 
3 1 
320 
330 
340 
350 
360 
370 
380 



■ 99 
• 1 30 
131 
•162 
•207 
162 
113 
103 



400 
410 
420 
430 
440 
450 
460 
470 
480 



153 

■ 65 
167 
184 

■ 41 
221 
164 

- 
•197 



500 
510 
520 
530 
540 
550 
560 
570 
580 



-153 
-215 
-181 

- 79 

- 78 
-112 

- 98 
-167 
-166 



55 



239 590 - 170 
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700 


- 76 


830 


- 


960 


- 9 


1090 


- 23 


1 220 


-224 


1350 


-198 


1480 -174 


710 


- 12 


840 


- 8 


970 


-201 


1 100 


- 


1230 


-187 


1 360 


-2 1 3 


1490 -205 


720 


- 72 


850 


- 8 


980 


-138 


1110 


-206 


1240 


- 18 


1370 


-201 


1500 -227 


730 


- 10 


860 


- 8 


990 


-198 


1 120 


-155 


1250 


- 16 


1 380 


-129 


1510 -201 


740 


- 46 


870 


- 8 


1000 


- 28 


1 130 


- 49 


1260 


-184 


1 390 


- 


1520 -198 


750 


- 15 


880 


- 


1 1 


- 12 


1 140 


- 77 


1270 


- 93 


1400 


-157 


1530 -201 


7Ó0 


- 5 


890 


-167 


1 020 


- 40 


1 150 


- 79 


1 280 


-198 


141 


- 13 


1540 -142 


770 


- 89 


900 


-150 


1 030 


-219 


1160 


- 81 


1 290 


- 38 


1 420 


- 106 




780 


-161 


910 


- 87 


1040 


- 55 


1170 


- 9 


1300 


-201 


1430 


- 33 




790 


-206 


920 


-174 


1050 


- 


1 180 


- 67 


1310 


-129 


1 440 


-142 




800 


- 81 


930 


-205 


1060 


-150 


1190 


-204 


1 320 


-187 


1 450 


- 




810 


-160 


940 


- 92 


1070 


-171 


1 200 


- 


1330 


-184 


1 460 


- 87 


TOTAL: 


820 


-191 


950 


- 53 


1080 


-137 


1210 


-252 


1340 


—20^ 


1470 


-150 







N.°» 1 a 4 - 475 PTAS. N.° 5 -150 PTAS. 




N.° 6-150 PTAS 



N/7 ■ 150 PTAS. 
S3¡ 





ES MüjCí 


É3 

namn na 








LOCO UN 


ENCUAJE DIDACTICO 




N.° 8-150 PTAS. 

75 



N.° 11 - 175 PTAS. N.° 12 - 175 PTAS. N ° 13 - 175 PTAS. 

¡SI TE HACE FALTA ALGUN NUMERO DE 




N.°*9y 10-300 PTAS. 



N.° 14 - 175 PTAS. N.° 15 - 175 PTAS. 



PIDELO HOY MISMO! 

Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO — 



| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN f RANSFER, S.Á. 

I NOMBRE Y APELLIDOS 

| CALLE N." ciuDAD 

I DP PROVINCIA TEL .il.... ..^.."7 "*77 



Monitor al día 




HYPER SPORTS 5 

Otra novedad Konami 

Konami — distribuida en España 
por Serma — , anuncia que co- 
mercializa un nuevo juego que 
hará las delicias de los usuarios de 
MSX. En efecto, este cartucho previsto 
para que intervengan uno o dos juga- 
dores, incluye cuatro competencias que 
ponen a prueba la capacidad física y 



mental de los usuarios. Ciclismo, triple 
salto, deslizamiento y salto con pértiga 
configuran un verdadero desafío al en- 
tretenimiento y a la destreza. El precio 
de Hyper Sports 3 es de unas 5.200 pts. 
aproximadamente. Lo puedes comprar 
en cualquier tienda de informática o di- 
rectamente a la casa Serma, Bravo Mu- 
rillo 377, 3." A 28020 Madrid. 



EL MSX-2 DE NATIONAL 

La super máquina 

La compañía japonesa National, 
más conocida entre nosotros a 
través de sus productos Panaso- 
nic, ya cuenta en Japón con dos mode- 
los MSX-2. Se trata del FS-3900 y del 
FS-5500. Precisamente este último mo- 
delo es una especie de super máquina 
que incorpora una serie cíe novedades 
que lo hacen singular relacionándola 
con otros ordenadores del mismo seg- 
mento. Entre esas novedades citaremos 




la track ball incorporada que facilita el 
diseño de gráficos punto por punto y 
un vídeo software especial para la edi- 
ción de imagen, titulación, etc. Puestos 
en contacto con la Panasonic España, 
nos han comunicado que por el mo- 
mento estos aparatos no serán importa- 
dos a este país debido a la estrategia 
comercial de la central japonesa. 



DATA BECKER ABRE TIENDA 



Libros, software, hardware 

L empresa Ferré Moret, S.A. edi- 
tora de los libros informáticos 
Data Becker, acaba de abrir en 
Barcelona -Córcega 299-, una tienda 
destinada a satisfacer todas las necesi- 
dades de los usuarios informáticos, fcn 
este local, exquisitamente decorado, los 
clientes, según palabras de su director 
Fernando Prüfert y de su encargado, 
Xavier Castelltort, «podrán encontrar 
libros de nuestra editorial para los 
principales sistemas informáticos y 
obviamente para el MSX, por el que 
Data Becker apuesta muy tuerte». 

Pero la tienda Data Becker no es solo 
un escaparate de libros de la editorial, 
sino también un sitio especia izado en 
el que se puede adquirir tanto hardware 
como periféricos teniendo e mas fiable 
de los asesoramientos. También es po- 
sible conocer las principales publica- 
ciones informáticas del mercado ti 
mejor software (juegos, utilidades, 
aplicaciones, etc.), papel para impreso- 
ras, accesorios y reparación de equipos. 

Cada mes y como parte de la estrate- 
gia comercial nos comenta I 




Prüfert la tienda tendrá una interesantí- 
sima oferta ya sea en hardware, como 
en software, periféricos o accesorios. 
Asimismo los clientes podrán tener de- 
mostraciones de algunos productos 
realmente interesantes, como el robot 
Fischer Technic que puede desempeñar 
una serie de tareas y cumplir funciones 
de plotter para dibujar y diseñar. La 
versión MSX aún no está disponible, 
pero lo estará muy pronto. 

Fernando Prüfert aprovecha esta 
ocasión para anunciar que la editorial 



Ferré Moret tiene la intención de 
impulsar y publicar libros informáticos 
de autores españoles, por lo que esta 
abierta la recepción de originales, los 
cuales serán analizados y evaluados por 
lectores especializados de la misma edi- 
torial. „ 

Por nuestra parte, felicitamos a Data 
Becker por la iniciativa de abrir una 
tienda tan interesante y magníficamen- 
te provista, que sin duda solventara 
más de un problema técnico o de pro- 
visión a muchísimos usuarios. 
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AULA INFORMATICA 
DYNADATA 

Totalmente MSX 



La red de área local Dynadata ha 
sillo diseñada para aportar un 
elemento de progreso en el 
ámbito de la enseñanza. Bien es sabido 
ya, que el únicó estándar con posibili- 
dades de Futuro en el sector de consu- 
mo \ dé la enseñanza es el MSX, ya que 
el mismo protege al usuario dé la posi- 
ble desaparición de fabricantes o mar- 
cas o falta de asistencia específica tras la 
venta de los aparatos. Dynadata, qué 
comercializa el MSX DPC-200, y L.N. 
Detér, S.A. han desarrollado un aula 
informática Utilizando totalmente ele- 
mentos de la norma MSX. Esta red de 
arca local consta, en el puesto de profe- 
sor, de un DPC200, un controlado* 
Deter D-32, un monitor de fósforo 
verde o color Dynadata, una tarjeta de 
COrtexiÓn a la red, una impresora Brót- 
her M-1509 de ISO caracteres/secundo. 
Este puesto se puede conectar hasta 
con 32 puestos de alumno, cada uno de 
los cuales Se compone de un ordena- 
dor, un monitor, una tarjeta de cóne- 
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xión a la red, una lectograbadora V 
C683B y de moilo opcional una impre- 
sora o cualquier otro periférico. 
Para mayor información sobre esta aula 
informática MSX l.ND-032 pueden di- ' 
rigirse a Dynadata, Sor Angela de la t 
Cruz 24, 2S020 Madrid, (» a Aribau, 61, 
Entio. OSOI I Barcelona. * 



MONITOR COLOR II 



Con la firma de Idealogic 

Entre los productos que ofrece 
Idealogic, prestigiosa casa de 
software española, se encuentra 
su monitor color II de 14 pulgadas. Sus 
características generales son entrada 
señal de vídeo compuesta y RGB com- 
patible directamente con los ordenado- 
res de las principales marcas y por su- 
puesto con los MSX. Sus prestaciones 
profesionales son sonido incorporado 
HiFi, chasis de alta resolución, pantalla 
de media/alta resolución, peana girato- 
ria opcional, filtro de pantalla opcional, 
asas de transporte, salidas para altavoz 
externo. Cuenta además con la posibi- 
lidad de conexión en serie con conmu- 
tador final de serie incorporado. Salida 
de señal vídeo Pal, doble entrada/salida 
conmutable, entrada simultánea para 
CPU's o CPU y vídeo. 




INTERFACE RS232C 



VU 0042 PHILIPS 



Una de las grandes posibilidades 
de los ordenadores MSX es su 
capacidad de comunicación. 
La interface serial RS 232C modelo VU 
0042, que se conecta en el slot dedicado 



a los cartuchos dando así gran operati- 
vidad al ordenador MSX. Gracias a es- 
ter periférico se puede transferir infor- 
mación entre dos ordenadores MSX y 
entre un ordenador MSX y otro de dis- 
tinto sistema o entre un ordenador 
MSX y cualquier otro aparato provisto 
de interface RS 232C. La comunicación 
puede efectuarse mediante un cable co- 
nector apropiado o a través de la línea 
telefónica mediante modem y el soft- 
ware de comunicación adecuado. En tal 
caso es necesario que los aparatos co- 
nectados utilicen el mismo protocolo 
de comunicaciones. Los MSX pueden 
fijar dicho protocolo mediante la ins- 
trucción COMINI. Este cartucho 
interface de Philips posee una memoria 
ROM de 8K destinado a otorgar ins- 
trucciones adicionales en MSX BASIC 
que regulan el funcionamiento de la 
VU-0042 Philips y la transmisión de 
información. 





VF-100 CANON 



Un disk drive sólido 

Canon ya dispone de una unidad 
de disco para su aparato MSX 
de grandes prestaciones y no- 
table versatilidad para el almacenaje de 
datos y un rápido acceso a ellos. La 
VF-100 trabaja con un floppy de 3,5 
pulgadas, doble densidad y doble cara 
y tiene una capacidad de almacenaje de 
un megabyte sin formatear y de 737,3 
formateado. La interface que lo pone 
en contacto con el ordenador incluye 
subprogramas BASIC entrada/saliaa, 
MSX-DOS BASIC, MSX DISK BA- 
SIC y un subprograma de utilidad. El 
aparato se entrega con todas las cone- 
xiones y manuales necesarios y un 
floppy MSX-DOS. También incluye 
conexión para expansión de unidad de 
disco. 
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Monitor al día 




LA CAMA QUICKSHOT IV 

Spectravídco mueve el MSX 

La gama de joysticks Quickshot 
IV presenta el modelo SVI104 
en cuatro versiones que se adap- 
tan perfectamente a las necesidades de 
los usuarios y al tacto de los mismos. 
En realidad este mando se basa en el 
modelo I de la serie, pero la novedad 
radica fundamentalmente en que las 
distintas versiones pueden obtenerse 
simplemente con cambiar los mangos. 
Estos han sido concebidos para manio- 
brar con mejores posibilidades los jue- 
gos, ya sean deportivos, de combate o 
de carreras. Se presenta en color negro 
y sólo existe la versión Atari, es decir el 
estándar de joystick que incorporan to- 
dos los ordenadores MSX. El precio 
aproximado es de unas 2.500 pts. 




CB-7S BOLA GRAFICA SONY 

Para diseñar a voluntad 

Uno de los periféricos más inte- 
resantes para el diseño de grá- 
ficos es sin duda, la bola gráfi- 
ca. Con la GB-7S de Sony se pueden 
obtener los diseños más complejos de- 
bido a su gran precisión en el trata- 
miento de los pixels. De este modo 
pueden hacerse cualquier tipo de dibu- 
jo, con distintos colores, borradores, 
reglas, compases, paletas, efectos espe- 
ciales y un sinnúmero de opciones más. 
Y por si esto no bascara para analizar 
desde el punto de visja de un progra- 
mador, lo conseguido en pantalla se 
puede obtener en un listado BASIC 



MSX. Sus características son visible- 
mente ventajosas para los usuarios que 
uieren aprender. El precio aproxima- 
o de este periférico es de 14.900 pts. 



IMPRESORA MATRICIAL 



PRN-120 Sony 



Este modelo de impresora matri- 
cial comercializado por Sony es 
uno de los más interesantes del 
mercado. Tiene una cadencia de impre- 
sión de 120 caracteres por segundo y, 
lo que es más importante, no necesita 
empear papel térmico. Cualquier tipo 
de papel convencional se puede em- 
plear para obtener listados o llevar la 
gestión de negocio, imprimiendo car- 
tas, circulares, etiquetas o realizando 
gráficos estadísticos. Otro detalle a te- 
ner muy en cuenta de cara al bolsillo 
del usuario es que emplea cintas comu- 
nes de máquina de escribir, las cuales 
son fácilmente cambiables. Posee 96 
caracteres estándar ASCII y 96 itálicos. 




MAD FOX 



La carrera más apasionante 



Y 



a contamos con lo que segura- 
mente será un nuevo éxito en 
juegos. Nuestros programado- 



res y diseñadores de juegos, superán- 
dose en cada ocasión, ahora nos sor- 
prenden con una fantástica carrera a 
través del desierto. El protagonista es 
Mad Fox, un héroe solitario cuya única 
arma es su velocísimo coche con el que 
debe tratar de cubrir la mayor distancia 
posible por un inhóspito desierto reco- 
giendo bidones del único combustible 
que queda en el planeta. Pero en su ver- 
tiginosa carrera no sólo debe sortear 
obstáculos naturales, sino también el 
ataque de otro solitario enemigo que 
busca su destrucción y así quedarse con 
todo el combustible. Este juego tiene 
garantía de Manhattan Transfer, S.A. 
tanto de su calidad como de su poder 
de diversión. 



PRIMER T00LKIT PHILIPS 
EN ESPAÑA 

Entregado a Idealogic 

El Software Manager de Philips 
Ibérica, Antonio Roldán, y los 
responsables del Area de Inves- 
tigación de Eidhoven, P.P. Habich y B. 
Duinkerken, entregaron a Idealogic el 
primer Toolkit para MSX-2. El Toolkit 
(paquete de desarrollos de programas) 
es el primero que se entrega a una em- 
presa de software en Europa y será el 
único que exista en España. La entrega 
consta de compiladores de lenguaje C y 
Pascal, programas de dTbujo y diseño, 
sintetizadores de voz y sonido, digitali- 
zador de vídeo, ensambladores, debbu- 
gers, etc., y manuales e información de 
más de 3.000 páginas. La intención de 
Philips es impulsar y facilitar el trabajo 
de los programadores y diseñadores de 
software para MSX-2 en nuestro país, 
demostrando la confianza depositada 
tanto en el futuro del estándar como en 
la calidad de los profesionales españoles. 
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¡NIDOS A 

WME DE ALIA CALIDAD PARA MSX 




de CASSETTES 




KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP.500Ptas. 




Ü-BOOT. Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



8NAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de I03 misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. (Atrévete al 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 



FLOPPY, El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia ea 

Nombre y apellidos: 

Dirección: 

Población: CP Prov. 



.................... 



Tel.: 



□ KRYPTON 

□ Ü-BOOT 

□ QUINIELAS 



Ptas. 500- □ SNAKE 

Ptas. 700- □ EL SECRETO DE LA PIRAMIDE 

Ptas. 700- □ STAR RUNNER 

Gastos de envío certificado por cada cassette Ptas. 70 - 

Remito talón bancario de Ptas. a la orden de Manhattan Transfer, SA. 



Ptas. 600- 
Ptas. 700- 
Ptas. 1.000- 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette 

IMPORTAME: 

indicar en ei sobre MSX CL UB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 
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NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES 
TRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 
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JOYCARD DIGITAL 



YANJEN 



Un nuevo concepto de controlador de juegos , 
y gráficos digital ' . • - 




• Obtendrá una respue 
inmediata a "sus acción 

• De este modo no tendrá 
rivaf en los juegosr " i v ™r 

• El modelo STD incluye 
autofire. j * 

• Mando indestnuétibjf^ 
no está sometido a 'fór 
rotura típica del " V 
Joystick tradicional. 



ERSION STD 

COMMODORE 
AJARI 

5PECTRAVIDEO 



PECTRUM 



¿1 



p|£ ; ' : ' ' VERSION MSX 



•CANON 
• MUSUBISMI 



COMMODORE. §PECTRUM. ATARI. . f 

PHILIPS. SONY. TOSHIBA. CANON Y MUSUBISMI 
SON MARCAS RFfilSTRAf>AR 



P* GraOfe, 22 r .2. . • • • a - 

Tfl.:w1 00 20 -' • Núñez.de Balboa, 58 Gral. Dávila, 43 

08007 - Barcelona Tel.: .275 08 75 Tel.: 22 73 66 

Tlv RlfidR ¿RKO F 9ftnm - MarlriH SCinm - «íantanripr 



MSX Periféricos 




COGE EL MANDO 
Y DISPARA 



Cualquier usuario sabe qué 
es un joystick y para qué sir- 
ve. Pero... ¿Sabe realmente 
todo lo que debe saber de este 
asunto? 



UN POCO DE 
HARDWARE 



El 90% de nuestros lectores están 
hartos de matar marcianos o 
cualquier otro tipo de malvados 
enemigos que atentan contra sus inte- 
reses en el universo de su ordenador. 
Algunos de ellos — los más osados— 
incluso se han atrevido en alguna oca- 
sión a despanzurrar su joystick para 
hacerse una idea de cómo funcionan. 
Es posible que la mayoría de ellos ha- 
yan encontrado una placa de bakelita 
con un circuito impreso y unos arcos 
concéntricos que hacen contacto con 
unas terminales metálicas en la palanca 
del joystick. En realidad, se trata de 
una resistencia variable que envía un 
determinado voltaje al port del ordena- 
dor. 

Los joystick son periféricos de entrada 
que suministran al ordenador unas 
señales externas, que una vez decodifi- 
cadas le indican las acciones que debe 
realizar. 

Los ports de los joysticks tienen nueve 
patillas dispuestas en la manera que 



FIGURA 1 





SEÑAL 


DIRECCION 


1 


FND 


ENTRADA 


2 


BACK 


ENTRADA 


3 


LEFT 


ENTRADA 


4 


RIGHT 


ENTRADA 


5 


+5V 




6 


TRG1 


ENTRADA 


7 


TRG2 


ENTRADA 


8 


OUTPUT 


SALIDA 


9 


GND 


SALIDA 





ilustra la figura 1 y cada una de sus pa- 
tillas realiza una misión. Así pues, las 
patillas numeradas del 1 al 4 se en- 
cargan de controlar las cuatro direccio- 
nes cardinales (adelante, atrás, izquier- 
da y derecha); la patilla 5.' envía 5 vol- 
tios, la 6. J y 7. a controlan el primer y 
segundo disparador (si lo hubiese en el 
mando) mientras que la 8/ y 9. J no 
operan. 

Estos ports no son otra cosa que inter- 
faces, que hacen procesable la informa- 
ción que enviamos mediante los movi- 
mientos de la palanca, es decir, decodi- 
fican la señal y en función de ello y del 
programa, los sprites se mueven en una 
u otra dirección. 

Hasta ahora, hemos hablado del joys- 
tick tradicional, compuesto por una 



palanca de mando y uno o dos dispara- 
dores, pero existen actualmente mode- 
los más sofisticados dispuestos a satis- 
facer los deseos del jugador más exi- 
gente, como son los joycards pensados 
para juegos del tipo HIPERSPORTS, 
cuyo funcionamiento es análogo al de 
los cursores del ordenador (evitando 
por lo tanto el que se destroce la má- 
quina a mamporro limpio para vencer 
al contrincante) y las «Joyballs» cuyo 
funcionamiento se detalla en la figura 2 
y que, gracias a su diseño permiten más 
ángulos de desplazamiento. 

¿QUÉ CONTROLA AL 
JOYSTICK? 

Las rutinas del BIOS (Basic Input Out- 



55 



MSX periféricos 




put System) GTSTCK y GGTRIG son 
las que se encargan de gestionar la pa- 
lanca y el disparador del joystick res- 
pectivamente: 

La rutina GTSTCK, que se ejecuta me- 
diante CALL &H00D5 es la que lee el 
estado de las teclas del cursor o del 
joystick. El acumulador contiene la 
identificación del joystick empleado. 
En el caso de que el contenido de este 
registro sea 0, el ordenador interpretará 
que estamos utilizando las teclas del 
cursor. Si el contenido es 1, la lectura la 
efectuará en el port n." 1, y si es 2 en el 
port n.° 2. 

La dirección del joystick seleccionado 
en el acumulador adquirirá los siguien- 
tes valores: 

para el joystick centrado 

1 hacia arriba 

2 arriba a la derecha 

3 derecha 

4 abajo a la derecha 

5 abajo 

6 abajo a la izquierda 

7 izquierda 

8 arriba a la izquierda 

Los registros dobles AF, BC, DE y HL 
pueden verse alterados por esta llama- 
da, y además se desconectan las inte- 
rrupciones. 

La rutina GTTRIG se ejecuta mediante 
un CALL &H00D8 y devuelve el esta- 
do, bien de la barra de espacio o bien de 
uno de los botones disparadores del 
joystick. El acumulador alberga los 
contenidos siguientes dependiendo de 
la pulsación del disparador: 

Barra de espacios 

1 Disparador n." 1 joystick 1 

2 Disparador n." 2 joystick 1 

3 Disparador n." 3 joystick 2 

4 Disparador n." 4 joystick 2 
Cuando un disparador está pulsado, el 
acumulador devuelve el valor 255. En 
caso contrario, devuelve 0. La llamada 
a esta rutina altera los mismos registros 
dobles que la anterior, y también de- 
sactiva las interrupciones. 

Tras lo expuesto, pasamos a comentar 
algunos de los joysticks disponibles en 
el mercado: 

JOYSTICK QUICKSHOT 
SPECTRA VIDEO 

Es quizá el joystick por antonomasia. 
El diseño ergonómico de la palanca lo 
hace cómodo y rápido de manejo. Lle- 
va dos botones disparadores, uno arri- 
ba de la palanca y otro en la base para 
poder disparar con mayor velocidad. 
En su base lleva cuatro ventosas que 
permiten fijarlo sobre una superficie li- 
sa, y lleva un cable lo suficientemente 
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DETALLE DEL CODIFICADOR 




DISCO 

CODIFICADOR 



DETECTOR 
OPTICO 



largo como para no tener que estar 
constantemente encima de la consola. 

JOYSTICK JS 75P SONY 

La novedad más interesante que pre- 
senta este joystick es el hecho de que 
ningún cable conecta el joystick al 
ordenador. La transmisión de los mo- 
vimientos se efectúa mediante rayos in- 
frarrojos que activan los sensores espe- 



FIGURA 2 



CODIFICADOR 



SEMIESFF.RA 




CODIFICADOR 



ciales de la parte de la unidad que se 
conecta al port del joystick. Tiene un 
radio de acción de hasta 7 metros, lo 
que lo convierte tal vez en el joystick 
más cómodo. 

JOYBALL 
SPECTRA VIDEO 

Ofrece una gran fiabilidad al utilizar 



JOYCARD 
RAÍA 





r 




microswitches con una vida media de 
decenas de millones de contactos. Su 
diseño en forma esférica lo convierte en 
virtualmente indestructible además de 
aportar más ángulos de desplazamien- 
to. Lleva amén de un conmutador para 
zurdos dos enormes botones de dispa- 
ro con un LED que indica cuando es- 
tán activados. También incorpora ven- 
tosas en su base para fijarlo a una su- 
perficie lisa. 

JOYCARD SERMA 

He aquí el joystick para los deportistas 
del ordenador. Indudablemente, con 
esta joycard obtendrán una neta ventaja 
sobre los contrincantes que utilicen 
modelos más tradicionales. Su especial 
diseño y la inclusión de dos disparado- 
res asegura la máxima rapidez en los 
programas de deportes además de tran- 
quilizar bastante a los padres que su- 



JS 75 P de SONY 




fren por el «aporreamiento» que recibe 
la consola en cada competición. 

JOYSTICK QUICKSHOT 
VII SPECTRA VIDEO 

Spectravideo nos sorprende una vez 
más con un joystick que rompe total- 
mente con los diseños habituales. La 
novedad de este joystick es que puede 
ser manejado con una sola mano y sin 
necesidad de una mesa de apoyo. El 
mango es sustituido por un botón pla- 
no para usar con la yema del dedo muy 
sensible y fácil de manejar. Los botones 
de disparo con capacidad de tiro auto- 
mático llevan LEDS indicadores con la 
misma función que en la joyball. 

JOYCARD DIGITAL 
YANJEN 

Este mando está especialmente diseña- 
do para evitar todo tipo de esfuerzos al 



JOYBALL 
SPECTRAVIDEO 





JOYCARD DIGITAL JANSEN 



jugador. Responde eficaz y rápidamen- 
te a las órdenes de dirección y disparo. 
Para ello cuenta con una superficie cir- 
cular dividida en cuatro sectores que 
responden a otras tantas direcciones y 
que se activan con sólo posar la yema 
de los dedos. Dispone también de dos 
botones de disparo. Uno de ellos es pa- 
ra activar ráfagas. La distribución en 
España es realizada por Arkofoto, S.A. 
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El MSX en expansión 
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ROBOT ARM, 
EL BRAZO 
SPECTRAVIDEO 



MSX ya cuenta en España 
con un robot que amplía las 
prestaciones del aparato y 
prepara al usuario en el uso 
de un elemento que será coti- 
diano en el futuro: el robot. 



Si bien pensamos en la cibernética 
como algo del próximo siglo, lo 
cierto es que ella ya forma parte 
de nuestra vida. Al menos en algunos 
sectores de la sociedad el robot es un 
elemento imprescindible para desem- 
peñar una serie de tareas rutinarias o 
muy delicadas. Claro que, también es 
cierto, siempre imaginamos al robot 
con forma humanoide y muy pocas ve- 
ces como un simple brazo articulado 
capaz de pintar decenas de coches en 
serie, montarlos y dejarlos listos para el 
uso o bien manipular sustancias peli- 
grosas, entre un sin fin de tareas de ca- 
rácter industrial. Pues bien, tal vez por 
ahora debamos ser más realistas y dejar 
el robot tipo R2D2 y limitarnos a «ju- 
gar» con un elemento que nos permiti- 
rá conocer los fundamentos mínimos 
de una máquina robot aplicada a pe- 
queñas y simples funciones. En este 
sentido, el Robot Arm o brazo robot 
de Spectravídeo es un juguete intere- 
sante. 

Robot Arm SVI 2000C 

Ante todo es necesario decir que el Ro- 
bot Arm es sólo un juguete educativo. 
Lo es porque introduce a los más jóve- 
nes en el conocimiento básico de la ro- 
bótica de programación simple y ele- 
mental, y es capaz de despertar la cu- 
riosidad y desarrollar la inteligencia. 
El brazo robot SVI 2000C es un apara- 
to muy simple, provisto de un meca- 
nismo muy preciso que consta de una 
base, un antebrazo, un brazo, una 
muñeca y unas pinzas, es decir que tie- 
ne las mismas características de tu bra- 
zo. Cada uno de estos miembros están 
conectados a sendas juntas controladas 
cada una de ellas por un motor. Esto 
permite que cada parte del brazo pueda 
moverse de forma autónoma. La forma 
de operarlo es muy sencilla y puedes 
hacerlo sólo valiéndote de dos joys- 
ticks, sin necesidad de conectarlo a tu 
ordenador MSX o bien conectándolo a 




él a través de un cartucho ROM, que 
lleva un lenguaje llamado ROGO y 
que te permite programarlo. 

Forma de operar 

Para operar con el brazo sin ordenador 
y valiéndote únicamente de los joys- 
ticks sólo tienes que conectar estos en 
las ranuras correspondientes, colocadas 
en la base. Los joysticks que emplea 
son los comunes del estándar MSX, es 
decir los de tipo Atari. 
Al principio cuesta un poco dominar y 
coordinar los movimientos, pero con 
un poco de práctica se consigue domar 
el brazo y sus distintas partes. De todos 
modos resulta más interesante operar a 
través del cartucho interface. 



Si optas por esta variante de uso lo pri- 
mero que debes hacer es enchufar el 
cartucho en la ranura correspondiente 
de tu MSX, después conecta los dos ca- 
bles con conexiones tipo D — similares 
a las del joysticks — , en el interface y en 
el brazo y después enciende tu ordena- 
dor. 

Casi en el acto aparece en pantalla una 
frase de salutación al Robot Arm de 
Spectravídeo y una interrogación (?) 
que te indica que ya estás en condicio- 
nes de emplear el teclado para empezar. 
Casi inmediatamente aparece el menú 
de ROGO, que es un lenguaje muy pa- 
recido al Logo. 

El control de las cinco juntas se hace 
mediante los diez primeros comandos 



58 



El MSX en expansión 




315» NExr j 

! ~ ff» ©»»/■ 
300 NL* T J 3b0 KCr ooooo-. 




que mueven la base en sentido de las 
agujas del reloj — BC-BASE CLOCK- 
WISE — ; en sentido opuesto a las agu- 
jas del reloj — BA-BASE Anticlockwi- 
se — ; subida del brazo — LU-Lower 
Arm Up — ; bajada del brazo, — LD- 
Lower Arm Down — ; subida del ante- 
brazo — FU-Fore Arm Up — ; bajada 
del antebrazo — FD-Fore Arm 
Down — ; movimiento de la muñeca en 
sentido de las agujas del reloj — WA- 
Wrist Clock Wise — ; movimiento de la 
muñeca en sentido contrario — WA- 
Wrist Anticlock Wise — ; apertura de 
pinzas — FO-Forceps Open — ; cierre 
de pinzas — FC-Forceps Cióse — . 
Conociendo estos comandos el paso si- 
guientes es determinar qué parte del 
brazo quieres mover y hasta qué dis- 
tancia lo vas a llevar. La distancia se 
mide en unidades de tiempo, de modo 
que si deseas elevar el antebrazo y te- 
cleas FU90, el antebrazo se elevará 90 
unidades de tiempo, pero tales unida- 
des de tiempo no están relacionadas 
con el tiempo real, sino que es una uni- 
dad de medida convencional. 

Lenguaje ROGO 

El lenguaje ROGO, que incorpora el 
cartucho interface, se asemeja en su 
concepción al famosísimo LOGO del 
cual ya hemos hablado (MSX CLUB 
N. os 8 y 12). El ROGO te permite usar 
más de un comando logrando que el 
Robot Arm lleve a cabo una serie de 
movimientos a los que puedes compli- 
car en secuencias distintas y conseguir 




así que ejecute determinada acción. 
Obviamente tienes que valerte de los 
comandos propios del Robot en com- 
binación con los del lenguaje ROGO y 
desarrollar un programa. Por ejemplo 
si tecleamos BA100 FU200 LD 120 
WA100 FO90 FC80 lo que el robot ha- 
rá será girar la base hacia la izquierda 
100 unidades de tiempo, subir el ante- 
brazo 200 unidades de tiempo, bajar el 
brazo 120 unidades de tiempo, girar la 
muñeca hacia la izquierda 90 unidades, 
abrir las pinzas hasta 90 y cerrarlas has- 
ta 80. A partir de aquí se pueden hacer 
infinidad de secuencias y combinarlas 
para que el brazo las ejecute una tras 
otra. 

Claro que hay que tener en cuenta que 
los movimientos del robot no son ili- 
mitados. Las rotaciones básicas alcan- 
zan un máximo de 270", el brazo 90", el 
antebrazo 85" y las pinzas un máximo 
de 108". Así que a la hora de programar 
sus movimientos tienes que considerar 
las posibilidades reales que tienes para 
llevarlos a cabo, cosa que se consigue 



con un poco de práctica y empezando 
con programas muy simples. 
La orden SHOWARM de Rogo tiene 
la misión de mostrarte en la pantalla de 
tu monitor una representaición del bra- 
zo robot en cuatro perspectivas dife- 
rentes. En ellas puedes ver, en la venta- 
na 1, la simulación de los movimientos 
de los ejes 2 y 3; en la ventana 2, mues- 
tra la rotación del eje 1 ; en la ventana 3, 
la vista frontal de las piezas y revela la 
rotación del eje 4; la ventana 4 muestra 
el cierre y apertura de las pinzas vistas 
de perfil. 

El modelo simulado también puede ser 
sincronizado con el Robot Arm de tal 
forma que puedas seguir en pantalla los 
movimientos que realiza este último. 
El cartucho interface también incorpo- 
ra un test rutinario (comando SELF- 
TEST), que permite la comprobación 
de todas las partes del brazo robot y 
revisa cada junta comprobando si su 
funcionamiento es correcto. 
En síntesis podemos decir que se trata 
de un juguete educativo, que introduce 
a los más jóvenes en la técnica elemen- 
tal de la robótica y permite comprobar 
cómo un ordenador puede controlar 
los movimientos de máquinas determi- 
nadas. 

El precio aproximado de este periférico 
es de 9.500 pts, el precio del interface es 
de 11.500, aunque recordamos que se 
puede comprar sin éste. La única 
observación es que el manual se entrega 
en inglés, cosa que esperamos que SVI 
corrija en beneficio de los usuarios. 
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Suscribiéndote no solo tienes la seguridad de tener todos los meses tu 
MSX ( :LUB DE PROGRAMAS en tu easa sino que recibirás 12 
números pagando sólo 10 

BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle N. c 

Ciudad Provincia .... 

D. Postal Teléfono 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/f Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas: España por correo normal Ptas. 1.750, — 

Europa por correo normal Ptas. 2.000, — 

Europa por correo aéreo Ptas. 2.500, — 

América por correo aéreo USA$ 25USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 



60 



MSX aplicado ■ 



Por Joaquín López 



RUTINAS DE 
CONTROL DE JUEGOS 



Conocer el manejo de los 
joysticks resulta imprescin- 
dible para programar cual- 
quier juego. El artículo que 
sigue detalla las rutinas ne- 
cesarias para el control de los 
sprites. 




A título de preámbulo, recordad 
que la instrucción BASIC que 
lee el puerto de los joysticks es 
STICK (número de mando). Cuando 
se especifica un cero en el número de 
mando, se comprueban los cursores del 
teclado, en otro caso, se verifica el 
joystick correspondiente. La función 
devuelve la dirección actual en la que se 
encuentra el mando de juegos en un en- 
tero comprendido entre y 8 (ver figu- 
ra 1). Naturalmente un cero indicará 
que no se ha registrado movimiento al- 
guno. En cierto modo este artículo se 
complementa con «A la orden de man- 
do» (MSX CLUB N. ü 5). 

CUATRO FORMAS DE 
LEER UN JOYSTICK 

A continuación voy a mostrar varias 
maneras de aprovechar la orden 
STICK. Para ello, me limitaré a despla- 
zar un SPRITE atendiendo a los reque- 
rimientos de las teclas del cursor, aun- 
que, como ya he dicho, basta cambiar 
el número identificador del mando para 
leer un joystick. 

Ante todo, es necesario teclear estas lí- 
neas, respetando los números que tie- 
nen asignadas: 

20 L".CREEN2 

30 FORV=0TO7 : A$=A$+CHR$ 

<255;:NEXT 

4 SPRITES C0)=A$ 

50 X-^124 : Y=92 

60 PÜ'í¿jPRITE0, (X, Y) 

100 A=STICK(0>: IFA-0THE 

MIGO 

Como podéis observar en el listado, es- 
te programa asigna un pequeño cuadra- 
do al SPRITE y se prepara para si- 
tuarlo en las coordenadas especificadas 
por las variables X e Y. Asimismo, el 
estado de las teclas del cursor será leído 
por la línea 100, que repetirá la opera- 
ción si no se pulsa ninguna de ellas. 







MSX aplicado 

1-CONDICIONES 
IF/THEN 

Si tomo en consideración los progra- 
mas que vosotros, los lectores, mandáis 
a esta redacción, puedo asegurar que la 
única manera que tenéis de leer los 
mandos de juegos es empleando condi- 
ciones del tipo IF/THEN. Este sistema 
es, con mucho, el peor, puesto que em- 
plea demasiado tiempo y derrocha bas- 
tante memoria. Tened presente que la 
velocidad de respuesta resulta crítica en 
casi todos los programas de juegos, por 
lo que me referiré a ella como elemento 
primordial para juzgar las bondades de 
cada método. 

Os aconsejo que completéis el listado 
anterior con las líneas que siguen y eje- 
cutéis el programa: 



160 '###### CONDIC. (IF 

THEN) ####### 
170 I FA= lTHENY=Y-2 : GOTO 
60 

180 IFA=2THENY=Y-2: X=X+ 
2: GOTO60 

190 IFA=3THENX=X+2 : GOTO 
60 

200 IFA=4THENX=X+2: Y=Y+ 
2: GOTO60 

210 IFA=5THENY=Y+2 : GOTO 
60 

220 IFA=6THENY=Y+2 : X=X- 



Izquierda 7 




3 Derecha 



Abajo 



FIGURA 1 



2: GOTO60 

230 IFA=7THENX=X-2:GOTO 
60 

240 Y=Y-2: X=X-2: GOTO60 



Además de los inconvenientes citados 
anteriormente, emplear condiciones 
hace que la velocidad sea irregular, 
puesto que los valores que se comprue- 
ban en las primeras líneas se toman en 
consideración más rápidamente. Así, el 
SPRITE asciende con mayor facilidad 
que desciende y se desplaza hacia la de- 
recha más rápido que hacia la iz- 
quierda. 

2-OPERADORES 
LOGICOS 

Los operadores lógicos tal vez sean los 
grandes desconocidos del BASIC (pro- 
fundizaremos en el tema en un futuro 




próximo). En síntesis, se trata de com- 
probar una determinada condición en- 
cerrada en un paréntesis. Si ésta se 
cumple, el resultado tomará el valor 
verdadero (-1), de no ser así, se asigna- 
rá un cero a la expresión. 
Presumo que habréis tecleado las líneas 
anteriores y tendréis una idea aproxi- 
mada de la velocidad con la que se 
mueve el SPRITE cuando se accionan 
los cursores. Ahora, probad con los 
operadores lógicos y veréis cómo la ve- 
locidad se incrementa ligeramente, a la 
par que se ahorra memoria. He aquí el 
listado: 



130 ' ###### OPERADORES 

LOGICOS ###### 

140 Y=Y+2*< A<30RA=8)-2 

*<Á>3ANDA<7> 

150 X=X+2*(A>5)-2*(A>1 

AWDA<5) : GOTO60 



3-LA INSTRUCCION 
ON GOTO 

Los dos sistemas anteriores se basan en 
la comprobación, mediante un progra- 
ma, del valor de la variable asignada al 
estado de las teclas del cursor. Parece 
razonable pensar que el sistema opera- 
tivo y el intérprete BASIC serán más 
veloces a la hora de hacer comproba- 
ciones. En esto último se funda a la ho- 
ra de hacer comprobaciones. En esto 
último se funda nuestro tercer método: 
permitir que una instrucción ON GO- 
TO decida cuál es el valor de la varia- 
ble. 

Añadid las líneas que siguen a conti- 
nuación. Confío en que resultaréis sor- 
prendidos por la velocidad que alcan- 
zada el SPRITE. 



110 •########## ON GOTO 
############# 

120 ONAGOT0250, 260, 270, 

280, 290, 300, 310, 320 

250 Y=Y-2:GOTO60 

260 Y=Y-2 : X=X+2 : GOTO60 

270 X=X+2:GOTO60 

280 X=X+2: Y=Y+2: GOTO60 

290 Y=Y+2:GOT060 

300 Y=Y+2: X=X-2: GOTO60 

310 X=X-2:GOTO60 

320 Y=Y-2: X=X-2: GOTO60 

Sin duda, la mejor forma de leer las te- 



62 



1 



^^JH 




cías del cursor en BASIC en usar la 
orden ON GOTO. La mayor cantidad 
de memoria empleada se compensa coa 
creces con el notable incremento de ve- 
locidad. 



EL EFICAZ CODIGO 
MAQUINA 

Nada como el código máquina para 
obtener rapidez y ahorro de memoria. 
Sin embargo, no todo pueden ser ven- 
tajas. Si intercaláis una rutina rápida de 
lectura en un programa BASIC, debe- 
réis resignaros a que el intérprete reco- 
nozca la función USR, transfiera los 
parámetros solicitados, apile las direc- 
ciones de retorno y ceda el control. Lo 
anterior necesita su tiempo, por lo que 
la velocidad, aunque ligeramente supe- 
rior, corre pareja con el tercer método 
(ON GOTO). La solución: construir 
un juego escrito integremante en 
ASSEMBLER. 

Aunque no os veáis con fuerzas para 
realizar esto último, estudiad la rutina 
que sigue, porque puede serviros de 
ayuda para introduciros en el código 
máquina. Aquí tenéis su listado en 
ASSEMBLER: 




10 

20 

30 

40 

50 . 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 

260 BXIT: 
270 
280 
290 



ORG 

XOR 

CALL 

OR 

RET 

LD 

LD 

CP 

JR 

LD 

JR 

LD 

CP 

JR 

LD 

JR 

LD 

CP 

JR 

LD 

JR 

LD 

CP 

JR 

LD 

LD 

LD 

ADD 

LD 



45000 
A 

#D5 
A 

Z 

B, 

C. -2 
2 

C.EXIT 

B. 2 

Z.EXIT 

C, 
4 

C.EXIT 
C,2 

Z.EXIT 

B, 
6 

C. EXIT 

B. -2 
Z.EXIT 

C. O 
7 

Z.EXIT 
C.B 

HL, (44998) 

A.L 

A,C 

L.A 





300 
310 
320 
330 
340 



LD 

ADD 

LD 

LD 

RET 



A.H 
A.B 
H, A 

(44998 ),HL' 



Para unir la rutina al programa de mo- 
vimiento, deberéis teclear un pequeño 
cargador de líneas DATA: 



10 GOSUB330 

70 '########### c.M. 

############# 

80 DEFUSR1=45000! : A=USR 

1(0) 

90 X=PEEK(44999 ! ) : Y=PEE 
K( 44998! ) : GOTO60 
330 FORH=44998!TO45057! 
: READVS 

340 POKEH, VAL("&H"+V$) : 
350 S=S+VAL <"&H" +V$) : NE 
XT 

360 IFSO5077THENBEEP: C 
LS: PRINT"HAY UN ERROR 
370 DATA5C.7C, AF.CD.D5, 
00, B7, C8, 06. 00, OE, FE, FE 
, 02, 38, 1F, 06, 02, 28, IB, 
E, 00, FE, 04, 38, 15, OE, 02, 
28, 11, 06, 00, FE, 06, 38, OB 
, 06, FE, 28, 07, 0E, 00, FE, 
7, 28, 01, 48, 2A, C6, AF, 7D, 

81,6F,7C,80,67,22,C6, AF 
C9 

380 RETURN 



Una vez completos los cuatro métodos 
de lectura de los puertos de los joys- 
ticks, dispondréis de la posibilidad de 
comprobar cada uno de ellos indepen- 
dientemente, con sólo intercalar unos 
REMs donde convenga en cada mo- 
mento. Por otra parte, es igualmente 
factible construir un gestor que se en- 
carge de seleccionar uno a uno los dis- 
tintos sistemas. 

Habréis notado que las variables que 
controlan la posición del SPRITE fluc- 
túan siguiendo un paso de dos unida- 
des. En la práctica, suelen emplearse 
incrementos mayores, pero ha de te- 
nerse en cuenta que normalmente es 
necesario comprobar otras cosas que 
gastan, también, una buena cantidad de 
tiempo de proceso (el estado del dispa- 
rador, las colisiones entres figuras mó- 
viles, que el SPRITE no salga de la pan- 
talla, etc.). 
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Programa Por Antonio Verdú 



Este juego consiste en llevar 
una llave a los casilleros que 
se encuentran en Gada liana 
por la que tiene que trepar 

|#P"%# W\ Key. Es un programa corto y 

|f wm y wJ sencillo, a la vez que entrete- 



nido. 



2 9 *** KEY UP *** 

3 '***PGR ANTONIO VERDU*** 

4 '*** PARA MSX CLUB *** 

10 SCREEN 0:CLS 

20 COLOR 1 3 , 1 , 1 : PR I NT : W I DTH 40 : KEY 
OFF : CLEAR 600:DEFINT X,Y,V,H,M 
30 A^-'^tf*^^^^^^^^»^^^ 
mmmm****'' :FOR 1 = 1 TO 23: LOCATE 
, I:PRINTA*:NEXTI 

40 COLOR 6 : LOCATE 14,5: PR I NT " ■mhwuui 
iimumEum" : LOCATE 1 4 , 6 : PR I NT " m 

m" : L0CATE14, 7: PRINT ll HHWWiHl 

■" 

50 COLOR 6 : LOCATE 11, 1 G : PR I NT " mmamam 
■BHHB":LOCATE 11, 19: PRINT"m 

■": LOCATE 11,20:PR 
I NT " mmmm^mmmmmmmmmmm" 

60 LOCATE 17, 6: PRINT "KEY UP": LOCATE 
18, 12: PRINT"POR" : LOCATE 14, 19: PRIN 
T"IñIGO IRIZAR":FORI=1TO650:NEXTI 
70 F0RI=1T023:PRINT:NEXTI 
80 WIDTH 25: COLOR 7:PRINT "Use los 
mandos del teclado para mover su na 
ve por abajo o para subir a las lia 
ñas. Para esto ultimo primero pulse 
space para empezar a subir" 
90 PRINT 

100 PRINT " También puede saltar de 
liana a liana con la barra espacia 

dora pulsando siempre en el teclado 
el lado al que se va a saltar." 

110 PRINT 

120 PRINT " Su objetivo es coger un 
a llave del circulo rojo superponie 
ndose en él y presionando space, y s 
ubirla a los cuadros blancos de arr- 
iba, nueye veces" 
130 PRINT 

140 PRINT " PRESS SPACE" 

150 Y=RND(1):IF STRIG<0)=0 THEN GOT 

□ 150 



160 DIM X*(12) 

170 OPEN "GRP:" FOR OUTPUT AS #1 

180 SCREEN 2,2:CLS 

190 R=3: COLOR , , 1 : J-5: G=0 

200 ON STRIG GOSUB 760 

210 ON SPRITE GOSUB 1190 

220 ON STOP GOSUB 1540 

230 CB=INT(RND(1) *12>+2: IF CB=6 THE 
N 230 

240 SPR I TE* ( 4 ) =CHR* ( ?<H0 ) +CHR* ( &H0 ) + 
CHR$ ( &H0 ) +CHR* ( &HE5 ) +CHR* ( ?<HBF ) +CHR 
* (&HE0 ) +CHR$ ( ?<H0 ) +CHR* ( &H0 ) 

250 RT=0 

260 FOR N=l TO 12 STEP 2 

270 FOR 1=1 TO 16 

280 READ A 

290 X*(N)=X*<N>+CHR*<A> 

300 READ A 

310 X*(N+1)=X*(N+1)+CHR$(A) 

320 NEXT I 

330 SPRITE* (RT) =X$(N) +X* (N+l ) 

340 IF RT=0 THEN RT=5 ELSE RT=RT+5 

350 NEXT N 

360 ■ 

370 STOP ON 

380 FOR I"/.= l TO 250 STEP 26 

390 L I NE (I ■/.- 1 , ) - ( I V.+2 , 1 77 ) , CB , BF 

400 L I NE (I % : -4 , ) - ( 1 7-+4 , 10) , 1 5 , BF 

410 NEXT 17. 

420 LINE (8,0) -(255, 192) ,CB,B 

430 LINE (0, 0) - (7, 192) , 1 , BF 

440 PC=100:CIRCLE (PC, 186) , 4. 5, 6: PA 

I NT ( PC , 1 86 > , 6 : C=9 : GOSUB 1 060 

450 X = 1 1 : Y= 1 74 : 1 =0 : 02=25 

460 ' Juego 

470 RUT SPRITE 3 , ( X+5 , Y-9 ) , 1 , C 

480 PUT SPRITE , ( X , Y ) , 1 5 , 1 

490 SOUND 0,0:SOUND 1,0:3OUND 2,0:S 

OUND 3,1: SOUND 4 , : SOUND 5 , 

500 SOUND 6, 255: SOUND 7, &B101 1 1000 

510 SOUND 8,16:S0UND 9,16:S0UND 10, 

16 

520 SOUND 11,0: SOUND 12,8: SOUND 1 3 , 
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Programa 



14 

530 D=3TICK(0) 

540 IF DO0 THEN GÜSUB 650 

550 STRIG (0) ON 

560 IF G«4 AND ROI NT ( X-f 5 , Y-7 ) = 1 5 T 
HEN GÜSUB 930 

570 PUT 5PRITE 4, (H--W, V-P) , 7, 5 
580 PUT SPRITE 2, (l-l, V+T) ,7,5 
590 PUT SPR I TE 1 , (-H, V) ,7, 10 
600 H=H-R:M=M+2 

610 PUT SPRITE 5, (M, 174) , 10, 15 
620 SPRITE QN 
630 GOTO 470 

640 ' Movimiento del muñeco 

650 IF POINT (X+3, Y+2) =CB THEN 670 

ELSE 660 

660 GOTO 700 

670 IF D=l THEN Y=Y-3:SWAP 01,02 
680 IF D=5 THEN Y=Y+3:SWAP 01,02 
690 IF Y< = 12 THEN Y=12 

700 IF POINT <X-i-8, Y+1>=1 THEN 710 E 
LSE 750 

710 IF D=3 THEN X = X + 3 
720 IF D*7 THEN X=X-3 
730 IF X>=240 THEN X=10 
740 IF X<=10 THEN X=142 
750 RETURN 

760 ? Salto lateral y a liana 

770 IF Y>=174 THEN Y=172 

780 IF POINT (X+9,Y+15)=6 THEN C=4 

790 IF D<>3 AND D<>7 THEN RETURN 

800 IF Y>169 THEN RETURN 

810 IF D=3 THEN SL=2 

820 IF D=7 THEN SL=-2 

830 HS=25 

840 FOR 1 = 1 TO 13 

850 X=X+SL:H=H-R/2:M=M+1 

860 PUT SPR I TE , ( X , Y ) , 1 5 , HS 

870 PUT SPRITE 4 , ( H~W , V-P ) , 7 , 5 

880 PUT SPRITE 2, (H, V+T) ,7,5 

890 PUT SPRITE 1 , (™H, V) ,7, 10 

900 PUT SPRITE 5, (M, 174) , 10, 15 

910 PUT SPRITE 3, (X+5, Y-9) , 10,C 

920 IF X>243 OR X<10 THEN GOSUB 120 



930 IF H5-25THEN HS=20 ELSE HS=25 

940 NEXT I 

950 RETURN 

960 *■ Llave puesta 

970 STRIG (0) OFF 

980 LINE (X~2, Y~4> ~ (X+12, Y-15) , 1 , BF 
990 LINE (X+6, Y-3) ~(X+9,Y-14) ,CB,BF 
1 000 G=G+ 1 00 : L I =L I + 1 

1010 IF L¿=# THEN CL3: LI=0: VP=VP~8: 
GOSUB 1 1 30 : GOSUB 380 

1020 CIRCLE (PC, 136) ,4, 1:PAINT (PC, 
184) , 1 




1 030 PC= I NT ( RND ( 1 ) *220 ) +20 

1040 CIRCLE (PC, 186) ,4,6:PAINT (PC, 

1 84 ) , 6 

1050 R=R+1:C=9 

1060 H= INT ( RND ( 1 ) #245) +7 

1 070 V= I NT ( RND ( 1 ) * 1 00 ) +25 

1 080 W= I NT ( RND ( 1 ) * 1 00 )+18 

1090 P=INT (RND ( 1 ) *50) +20 

1 1 00 T= I NT ( RND ( 1 ) * 40 ) + 1 8 

1110 IF V+T >= 160 THEN T=-T 

1120 RETURN 

1130 7 Nueva pantalla 

1140 CB=INT(RND(1) *12)+2 

1 1 50 COLOR 1 5 : PSET ( 1 00 , 1 00 ) : PR I NTtt 1 

, "PUNTUACION: " ; G 

1 1 60 -J=J + 1 : PSET ( 1 00 ,110): PR I NT# 1 , " N 
AVES: "iú 

1170 FOR 1=1 TO 500: NEXT I : CL3 

1180 RETURN 

1190 ' Explosión 

1200 SPRITE OFF: STRIG (0) OFF 

1210 FOR 1-1 TO 192 

1220 Y=Y+10 

1230 PUT SPRITE 0,(X,Y),6,O2 

1240 PUT SPRITE 4 , ( H—W , V-P ) ,0,5 

1250 PUT SPRITE 2, (H, V+T) , 0, 5 

1260 PUT SPRITE 1 , (-H, V) , 0, 5 

1270 IF Y>=174 THEN 1310 

1280 PUT SPRITE 3 , ( X+5 , Y-9 ) , 1 , C 

1 290 SOUND , 50 : SOUND 1,1: SOUND 7 , 2 

46:S0UND 8,8 

1300 NEXT I 

1310 J=J-1:IF J=0 THEN GOTO 1440 
1 320 PSET ( 1 08 , 1 00 ) , CB : COLOR 1 5 : PR I 
NT #1,J 
1330 BEEP 

1340 SOUND 0,0: SOUND 1,5: SOUND 2,0: 
SOUND 3, 13: SOUND 4, 255: SOUND 5,15:8 
OUND 6,30 
1350 SOUND 7,0 

1360 SOUND 8,16:S0UND 9,16:S0UND 10 
,16: SOUND 11,0: SOUND 12, 5: SOUND 13, 
1 1 

1370 FOR 1=1 TO 30: NEXT I 

1380 SOUND 12, 56: SOUND 13,0 

1390 FOR 1=1 TO 530: NEXT I 

1 400 X = I NT ( RND ( 1 ) * 235 ) + 1 : Y= 1 74 

1410 PSET ( 108, 100) : COLOR 1:PRINT # 

1, J 

1420 RETURN 460 
1430 * Final partida 

1440 LINE (80, 150) -(240, 165) , 1,BF:P 
SET ( 100, 160) : COLOR 15: PRINT#1 , "PUN 
TUACION: " s G 

1450 LINE (0,70) -(250, 85) , 1,BF:PSET 

( , 80 ) : COLOR 1 3 : PR I MT# 1 , " 

PRESS SPACE " 
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1460 Y~RND ( --T I ME ) : I F STR I G ( ) =0 THE 

N GOTO 1460 

1470 BEEP 

1480 RUN 1490 

1490 ' Nueva partida 

1500 BCREEN 1 

1510 PRI NT "PRESS SPACE" 

1520 Y=RND (TIME) : IF STRIG(0)-0 THEN 

1520 ELSE 160 
1530 END 
1540 11 Stop 
1550 CLS:BEEP 

1560 FOR 1=0 TO 5:PUT SPRITE 1,(0,0 
>,0,13:NEXT I 

1570 LINE ( 125,0) -(128, 190) ,CB„BF 

1580 FOR 1=2 TQ 7 

1590 READ CM: READ S 

1600 FOR Y=l TO 192 STEP 2 

1610 PUT SPRITE 0, (120, Y) ,S,CM 

1620 NEXT Y, I 

1630 SCREEN 0:WIDTH 40: END 

1640 • Datas de sprites 

1650 DATA 3,192,3,192,3,192,3,192,6 

3,248, 127,252,239,238,231,206, 119,2 

20,63,252,31,240,7, 192,6, 192, 12,96, 

12,96,60, 120 

1660 ' 

1670 DATA 0,0,0, 126,0, 191, 1,66,2, 13 
2, 29, 8, 54, 28, 254, 2, 63, 255 , 95 , 254 , 7 , 
252, 3, 252, 0, 136, 0, 136, 3, 184, 0, 
1680 ' 

1690 DATA 0,0,126,0,213,0,66,128,33 
,64, 16, 184,56, 108,64, 127,255,252, 12 
7,250,63,224,63, 192, 17,0, 17,0,29, 19 
2,0,0 
1700 ' 

1710 DATA 0,0,0,0,0,0,0,0,2,32,2,32 
, 18,38,27,234,85,85, 127,251,94,61,8 
5,217,91,229,88,37,84,73,82, 145 

1720 ' 

1730 DATA 3,192,3,192,3,192,3,192,3 
1,248,63,248, 103,204, 199, 198,7, 192, 
1 35 , 1 94 , 255 , 254 , 254 , 254 , & , , , , , 
,0,0 
1740 ' 

1750 DATA 3,192,27,216,51,216,99,20 
4, 127,252,63,248, 15,224,7, 192,7, 192 
,7, 192,23,208,63,248,48,24, 112, 14,0 
, 0,,0, 
1760 s 

1770 DATA 0,15,5,7,10,7,25,15,20,15 
, 15, 11 
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REGALATE UN LIBRO 
VITAL PARA EL 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 

máquina. 




Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 



Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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CAZA PIRATAS 



Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 




AIR MISSION editado en cassette por 
STAR MSX es presuntamente una copia 
del programa RIVER RAID de Activi- 
sion, comercializado por Proein, S.A. y 
Philips. 
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1. °- Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. a - Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. °- Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, den- 
tro de su estuche de plástico. 

4. °- No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros 
medios o plagiados. 

5. °- Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de.las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. °- Todos los programas han de estar estruc- 
turados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. °- MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: 

lOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 
10.000 pts. los programas Educativos 
10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

8. °- MSX CLUB DE PROGRAMAS se reser- 
va el derecho de publicar fuera de concurso 
aquellos programas de reducidas dimensiones 
que sean de interés, premiando a sus autores. 



FALLO Y JURADO 

9.°- El Departamento de Programación de 
MSX CLUB DE PROGRAMAS hará la primera 
selección de la que saldrán los programas publi- 
cados en cada número de la revista. 

10. °- Los programas no se devolverán salvo que 
así lo requiera el autor. 

11. °- La elección del PROGRAMA DEL AÑO 
se hará por votación de nuestros lectores a través 
de un boletín que se publicará en el mes de octu- 
bre de 1986. 

12. °- El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1986. 

13 -°- El fallo se hará conocer en el número de di- 
ciembre de 1986, entregándose los premios en el 
mismo mes. 





Remitir a: I cíusoeproo^I - MI PROGRAMA 

Roca i Batlle. 10-12, bajos 08023 Barcelona 





Prepárate pues 
estamos 

trabajando en un 
número especial 
con todo el 

WFTWARE MSX del 

\do español. 
)bién 
noticias, 
novedades, 
comentarios y un 
largo etcétera que 
harán de este MSX 

CLUB ESPECIAL 

software algo 

FUERA DE SERIE. 



mRTUCHOS 




MUSIC COMPUTER 



Crta. U Coruñ; Km. 17.200 - LAS HOZAS DE MADRID 
TtH. (91) 63T.10.12n9T.10.O4 



LAS BUENAS COMPAÑIAS 
DEUNMSX 

PROFESIONAL 





A 



MITSUBISHI 

COMPUTER SYSTEM 



ML-FX1/2 □ 

El MSX profesional 

80 Kb RAM. 

Teclado Numérico. 

ML-FX2 Programa MAP (B. Datos/ 

P. Textos / H. Cálculo Gráficos/ 

Comunicaciones. 

ML-30 FD □ 

La Máxima capacidad en disco. 
1 Mb. (720 Kb. Formateado) 
8 Formatos diferentes 
Chasis previsto para 2 unidades. 



ML-10 DR □ 

Cassette especial para ordenador. 
Admite 1200/2400 baud. 
Cuentavueltas. Señal de monitor. 
Alimentación a red o baterías. 

ML-10 MA □ 

Ratón para diseño gráfico. 
Programa CHEESE de diseño. 
24 Funciones gráficas. 



APLICACIONES □ 

Un Software profesional para un 
ordenador profesional. Contabili- 
dad, Control de Stock, Factura- 
ción. 

CT-1501E □ 

Monitor/T elevisión. 
Alta definición. 
Conector SCART. 
Mando a distancia. 



CUPON DE RESPUESTA 



Desearía poder tener más 
información sobre los aparatos 
marcados El de MITSUBISHI. 



Sr.:. 



Domicilio: 



Población: 

MABEL, S.A. 

P° Maragall. 120 - 08027 BARCELONA 



